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Budget Management allows you to keep track of up 
to: 

• 60 Different Budgeted Accounts 

• 25 Cash Expenses Per Month 

• 20 Savings Deposits or Withdrawals Per Month 

• 50 Checks Per Month 
20 Deposits Per Month 

You can also keep track of cancelled checks. With 
this information instantly at your disposal, you can 
easily set up and then stick to a realistic budget. 
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SETTING UP 



w 



What Do I Get? . . . 



The four programs in this package are on two cassette tapes. If you 
have a TRS-SO Disk System, you can easily convert them to a 
diskette. Instructions arc included in this manual, 



. . . And What Must I Already Have? 



The basic equipment you 11 need depends on the kind of system you 
have. 

LEVEL II BASIC DISK BASIC 

16K RAM (minimum) 3 2tC RAM (minimum) 

One Cassette Recorder (minimum) One Disk Drive (minimum) 

Printer (optional) Printer (optional) 

The Budget Management Package will automatically adjust itself to 
use tapes on a 16K LEVEL II BASIC computer, or disk files on a 32K 
DISK BASIC computer. 

The optional printer is needed only if you want to print reports. You 
can use a line printer, a Radio Shack Quick Printer, or a TRS-80 
Screen Printer to print reports. Otherwise, the reports will be displayed 
on your Video Screen. 

Of course, you'll need blank cassettes or diskettes to store your budget 
information. 

But you don't need a lot of knowledge. That's what this manual is 
for. 
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But What Good Is It? 



If you wonder where all your money is going , . . and who doesn't 
... or if you're trying (unsuccessfully) to stick to a budget that's not 
realistic; . . , then you'll really appreciate the Radio Shack Budget 
Management Package. 

This package has four programs designed especially to help you set 
up and monitor your own personal budget. Of course, you'll 
stil! have to supply the will power to stick to that budget. But we 
hope these programs will help you to supply that will power. 

And best of all! You don't have to be a computer expert to use 
Budget Management. You don't even need to know BASIC (the 
language your Computer "speaks"). (If you're already familiar with 
LEVEL II or DISK BASIC, you'll be interested in the program 
listings in the back of this manual.) 

Budget Management isn't an Accounting Package, though, it's for 
budgeting only. Accounting is more business-like and legal. For 
example, under Budget Management, you set up house payments as 
an expense account. In Accounting, house payments are partly an 
asset, and partly an expense. 

So to put it in a nutshell, Budget Management will help you make 
decisions on where to spend your money. It keeps lots of facts 
organized for you so it's easy to see where you stand. If you need a 
business Accounting Package, you should get Radio Shack's General 
Ledger I. 



Is There Anything Else? 



One more thing! A lot can happen to destroy cassettes or diskettes 
and the information stored on them. 

Since these programs store all your accounts on tape or diskette, you 
ought to make it a routine to keep extra copies of important files — 
not only here but in all your computer work. We'll make suggestions 
when files are important enough to create backup copies. 
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OK, I'm Convinced . . . Now When Can I Use It? 



You can begin right away. 

INITialization is the first program that you will use. It creates your 
account structure, inserts new accounts, and renumbers your account 
numbers, but you won't use it very often after this. Later you'll need 
it only if you want to drastically reorganize your accounts. 



What Do I Do First? 



The First thing you do is load the INIT program into memory. 
Instructions for loading programs are the same no matter which of 
the four programs you will use. Responses that you must type are 
highlighted in biack or gray. 



For LEVEL II BASIC Only 
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1 . Make sure your recorder is properly connected 
and BASIC is running. 

2. Place the INIT cassette in your recorder and 
push the Play key. _ 

3. Type CLOAD Q2EH3- Th e computer will read 
in the program automatically. You can be sure 
this is happening when two asterisks appear (one 
of them blinking) in the upper right of your 
Video Display. 

4. When the program has been completely read in, 
the cassette will stop an d the r eady prompt 
will return. Type RUN Q3Q3 and the program 
will begin. 




SETTING UP 



For DISK BASIC Only 



If you have DISK BASIC, there are a few more steps to go through, 
but they are all easy. But following all these Instructions, you can 
save the programs on diskette and run them more easily later. 

1. Make a backup copy of TRSDOS and DISK 
BASIC on a blank diskette using the TRSDOS 
utility BACKUP. (See the TRSDOS manual for 
detailed instructions.) 

2. Using thi s disket te, load TRSDOS. Type auto 
veripyQJHI3. Load DISK BASIC by typing 
basic QZEQ3- Press QZQlSto answer the Files 
and Memory Size questions.* 

3. Type CMD •■J' 1 IdJJbJd:! 

4. Place the INIT cassette in your recorder. (Make 
sure your recorder is properly connected, and 
the Play key is pushed.) 

5. Type cload BflHa . The INIT program will 
automatically load into memory (and two 
asterisks will appear in the upper right corner of 
your Video Display.) 

6. Type cmd "R" [i£UjJ , 

7. Type 

5000 [F E=99 PRINT "*END OF RUN"; RUN "MENU" 

8. To make sure you typed this correctly, type 

list sf»00 nana. 

9. If it's OK, type save "init" QZQID ■ 

10. Use the TRANS tape and repeat steps 3-6. 

1 1 . Enter 

5500 [F E=99 P RINT "» £ND OF RUN": RUN "MENU" 

12. Type list 5S00 l3ttH:l to check this. 

13. If it's OK, type save "trans" UU13J 

1 4. Use the EDIT tape and repeat steps 3-6. 

15. Enter 

5500 IF £=99 PRINT "*END OF RUN": RUN "MENU" 

1 6. Type list 5500 umiaa to che ck this. 

17. IfifsOK, type save "Edit"'EZH33- 

1 S. Use the REPORT tape and repeat steps 3-6. 

19. Enter 

5000 IF E = 99 PRINT "*END OF RUN": RUN "MENU" 

20. Type LIST 5000 HJhHil to check this. 

21. If it's OK, type save "report" GZQ1D 

*48K SYSTEMS ONLY - SET MEMORY SIZE TO 65529 
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22. Enter the following lines exactly as they appear below; 

NEW 

100 'BUDGET MANAGEMENT MASTER MENU 1 .0 

1t0 '(C.) 1979 TANDY CORP. 

120 CLS: PRINT TAB(15) "BUDGET MANAGEMENT MASTER MENli":PR]NT 

130 PRINT TAB(20)"0.) STOP";Pft INTTAB(20) '"ij IN1T PROGRAM 

140 PRINT TABU0) "2.) TRANS PROGRAM ":PR I NT TAB{20) "3.) EDIT PROGRAM 

150 PRINT TAB(20) "4) REPORT PROGRAM": PR INT 

160 PRINT TAB(10) "SELECT PROGRAM ";:] NPUT J 

170 ON J+l GOTO 200, 300, 400, S00, 600:GOTO 120 

200 PRINT '** END OF SESSION *":END 

300 RUN "INIT" 

400 RUN "TRANS" 

500 RUN "EDIT" 

600 RUN "REPORT" 

23. Type LIST MJH^ fl. and make sure that all lines 
are exactly as they appear above. 



24. If they're OK, type save "menu" BZiBD 

To run the Budget Management Package, insert this Program 
diskette. Type run "MENU" ItibH:! and the following option list 
will be displayed. 



...NflGEtlENT — MR5TER MENU 

0> STOP 

1> INIT PROGRfiH 
2> TRRNS PROGRAM 
O EDIT PROGRAM 
4> REPORT PROGRRM 



SELECT PROGRAM? _ 



B2H33 the number ofthe program you want and it will automatically 
load and run. Whenever you finish with one of the four programs, 
you will be returned to this option list to choose another one. If you 
want to stop, select option to go back to DISK BASIC. 

For now, enter option 1 to run the INIT program. 
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INITIALIZATION 



How Do I Create Accounts? 

As soon as you run the INIT program, the following is displayed. 

BUDGET MANAGEMENT - INITIALIZATION 1. 9 
ENTER TODAYS DATE CrWDD/YV>? 89/05/?8_ 



Before you can do anything else, you must type a valid date. 
MM=the month. It must be two digits between 1 and 12. DD=the 
day, also two digits between 1 and 31. YY=the year. Use the last two 
digits of the current year. The month, day, and year are each 
separated from one another by a slash, /, 

When you type a valid date, the following wiil be displayed. 



8) STOP 

1) CREATE ACCOUNTS 

2) INSERT ACCOUNTS 
2) RENUMBER ACCOUNT 
4) SAVE DATA 



ENTER VOUR CHOICE' 



Now, you can create your accounts. The next two pages show a 
listing of the default accounts already programmed into INIT. You 
should take some time to look over these and, using them as a guide, 
decide which accounts you need and what accounts you want to add 
to these. You can use the worksheets in Appendix A to help with 
this. 

An account is simply one of the possible categories where you can 

get or spend money. All of the accounts together should reflect all of the 

areas where you can spend or receive money. 

For example, your Checking Account is an account. So is your 
Income, your Savings Account, your Mortgage or Rent, Utilities, etc. 
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BUDGET MANAGEMENT REPORT 
** ACCOUNTS REPORT ** 
DATE: 10/ 1/78 



PAGE 1 



ACCOUNT 



NAME 



180 CHECKBOOK BALANCE 

280 SAVING5 ACCOUNT 

360 PETTY CASH 

400 TOTAL INCOME 

410 REGULAR INCOME 

420 WRGE/SALARV 

438 BUSINESS INCOME 

448 SOC. SEC. BENIFITS 

456 PENSION 

468 VARIABLE INCOME 

4?9 BONUS 

488 INTEREST 

498 SAVINGS 

500 BONDS 

518 DIVIDENDS 

528 OTHER INCOME 

£00 SET-fiSIDE INCOME 

618 FUTURE GOPLS 

G20 EMERGENCIES 

638 EDUCATION 

640 RETIREMENT 

658 VRCATION 

780 TOTAL EXPENSES 

710 REGULAR EXPENSES 

720 RENT /MORTGAGE 

710 HOUSE MAINTENANCE . . . 

740 UTILITIES 

750 ELECTRICITY 

768 NATURAL GAS 

770 WATER 

780 TELEPHONE 

790 INSTALLMENT PAVMENTS 

800 INSURANCE 



CURRENT 

0.00 

0.00 



BUDGET 



0. 



880 


0.00 


8. 0U 


0.00 


0.00 


80S 


8.90 


0.00 


0.00 


808 


0.00 


8 00 


0.00 


0.00 


9.80 


8 88 


0. 00 


0.00 


8.08 


0.00 


8.00 


0.00 


0.80 


0.00 


8, 00 


0.00 


8 88 


0.00 


0.80 


0.00 


0.00 


8.88 


8 80 


0.00 


a. 00 


0.88 


8.88 


8.00 


8.00 


0.00 


0.88 


0.08 


0.88 


0.00 


0.88 


0.00 


0.00 


0.00 


0.00 


e.80 


0.80 


0.88 


888 


0.00 


0.00 


0.00 


0.80 


8 88 


0.00 


8.88 



CENT 


REMAINING 


ssn 


=--====— 


0.00 


8.00 


8.00 


880 


0.00 


0.00 


0.90 


0.00 


8.00 


8 06 


0.88 


0.00 


8 00 


8.88 


0.00 


8 08 


0.00 


0.08 


0.88 


0.00 


889 


8.80 


0.88 


8.00 


0.00 


8 00 


0.00 


0.00 


0.88 


0.00 


0.00 


0.00 


0.00 


0.88 


0.00 


8.88 


8.00 


888 


0.00 


0.00 


8.88 


8 80 


0.00 


8.00 


8.80 


0.00 


808 


9.00 


0.00 


0.88 


0.00 


0.00 


880 


0.88 


0.00 


0.80 


0.00 


0.00 


0.00 


8.08 


0.00 


0.00 


0.00 


0.00 


8.00 


0.80 
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BUDGET MANAGEMENT REPORT 
** FCGOUNTS REPORT ** 
DATE: 18/ V78 



PRGE 2 



RCCOUNT 



NAME 



CURRENT 



BUDGET 



PERCEHT REMAINING 



819 FOOD & BEVERAGE 

820 FURNISHINGS 

830 CLOTHING 

840 TRANSPORTATION 

850 BUS 

8G0 CAR 

870 GAS 

CAR MAINTENANCE 

MEDICAL 

906 RECREATION 

310 MISCELLANEOUS 

920 SEASONAL EXPENSES 

928 EDUCATION 

548 CONTRIBUTIONS 

350 TAXES 

9S8 CHRISTMAS 

970 BIRTHDAYS 

980 TRAVEL 

Using the worksheets in Appendix A, write down the 
accounts you need. Use these default accounts as a guide 



8.88 


0.00 


0.00 


6.68 


8.88 


0.00 


0.00 


8.88 


8.00 


0.88 


0.06 


00 


00 


0.00 


0.00 


8 00 


8.00 


9.00 


0.00 


6.66 


0.00 


0.00 


88 


8.88 


8.80 


6.88 


0.88 


0.66 


e. 60 


9. 99 


8.88 


8.69 


0.00 


0.00 


6.00 


8.99 


6.88 


8 00 


8.00 


8.00 


8.09 


0.00 


8.89 


00 


008 


0.00 


9.88 


9.88 


0.00 


8.08 


0.98 


0.00 


0.00 


0.00 


0.88 


6.68 


08 


0.00 


9.60 


0.00 


8.00 


0.00 


8,00 


0.68 


0.00 


088 


a 98 


8.99 


0.08 


9.99 


8.86 


0.00 



Indent your accounts to show the main account/sub- 
account hierarchy you want. 
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ACCOUNT NUMBER 


LEVEL 


ACCOUNT NAME 


CURRENT 


BUDGET 


100 





CHECKBOOK dAl.ANCE 


500 





200 





SAVINGS ACCOUNT 


200 





300 





PETTY CASH 








400 





TOTAL INCOME 






410 


1 


REGULAR INCOME 






420 


2 


wage/salary 





1200 


600 





SET -ASIDE INCOME 






610 


1 


FUTURE GOALS 





50 


620 


1 


EMERGENCIES 





20 


700 


1 


TOTAL EXPENSES 






710 


1 


REGULAR EXPENSES 






720 


2 


RENT/MORTGAGE 





140 


730 


2 


CAR PAYMENTS 





105 


740 


2 


UTILITIES 





60 


780 


2 


TELEPHONE 





25 


810 


2 


FOOD & BEVERAGE 





150 


830 


2 


CLOTHING 





40 



The above shows a worksheet that has been tilled out. 

Use the LEVEL column to show the indentation level of that account in the hierarchy. 
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There are two rules to keep in mind while filling this out. First, 
notice that in the default list some account names are indented under 
others. This indentation reflects a hierarchy between the accounts. A 
main or principal account can be divided into several sub-accounts. 

840 TRANSPORTATION 

850 BUS 

860 CAR 

870 GAS 

880 MAINTENANCE 

Above, transportation is divided into sub-accounts bus and 
car. car is further divided into gas and maintenance. In all 
cases, the main account total will equal the sum of the sub-accounts. 
So, enter totals only for the most indented level of sub-accounts 
under a given main account. In the example, you don't need to put a 
total for 840 or 860, since both of these have sub-accounts. 

CAR = GAS + MAINTENANCE 
TRANSPORTATION = BUS + CAR 



The Level can be from to 5 and is a hierarchy level for that 
account. Zero is the Level for main accounts only, A sub-account can 
be indented only one Level more than the previous account. For 
example, regular income; cannot be Level two or three. It must 
be one. 

The current value is the balance of an account. It is the amount 
of money spent or earned in that category so far. If it is the 
beginning of the month, most current values will be zero. 

The budget value is the amount you expect to spend or earn in 
that category during an average month. 

The account name can be no more than 18 characters. 
CAUTION: Do not use commas or colons in the account name. 

The account number follows from the default list. 

NOTE: You only need to enter amounts for sub-accounts which have 
no sub-accounts of their own. In the example above, you don't need 
to enter an amount for total expenses or regular 
expenses because both of these accounts have sub-accounts. Their 
amounts will be figured from the sum of their sub-accounts. 
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Now t the second rule you should keep in mind is that, whether you 
use the default list or not, the following five accounts must be 
present for the program to work properly. 

CHECKBOOK BALANCE 
SAVINGS ACCOUNT 
PETTY CASH 
TOTAL INCOME 
TOTAL EXPENSES 

The last two, total income and total expenses must have 
at least one sub-account to be of any use. If you use the default list 
(or a part of it) a sixth account set aside income will aJso be 
used. It must also have sub-accounts. 

checkbook balance is, of course, your checking account. Its 
balance is the dollar value of the checks you can write. 

The SAVINGS account is for your savings. Savings transactions 
affect the balance of this account. 

The petty cash account represents your cash on hand or pocket 
money. When you spend your pocket money, the balance of the 
petty cash account is reduced. 

Once you have decided on the accounts you need, there are two 
possible ways to feed your accounts to the Computer. You can use 
the default list if you have only a few accounts to add to it. Or create 
your own account structure and modify the program to accept it 
instead of the default list. (See Appendix Bifyouwantto change 
the program.) 

Using the Default List 

If you only have a few accounts to add, use the default list. You can 
insert your additions later. You can leave out as many of the 
accounts on the default list as you wish by following the instructions 
below. 

Type i HJHJ;I to choose the create accounts option. The 
default list will be displayed, and you should press Y if you want to 
use that account or N if not. (You won't be asked about the six 
main, level 0, accounts, they arc not optional.) 

If you answer N to an account, all of its sub-accounts will be 
skipped. So, if you want to use a sub-account, be sure to answer Y 
to its principal account. 
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If you press a key other than Y or N an error message will appear, 
and you will be allowed to try again. If you press Q2EQ3 without 
typing any other key, the program will assume the last answer you 
typed is also true for this account. 



Uk 


SC — ' ' " 


^*^^^j 


i If MiWMillt 1 ^H fill 1 ■ ! 4- F4 llliljL ^1 




WANTED <Y/N> 


109 CHECKBOOK BALANCE 




£00 SAVINGS ACCOUNT 




390 PETTV CASH 




400 TOTftL INCQHE 




418 REGULAR INCOME ? 






420 HAGE/SALARY ? 






430 BUSINESS INCOME 








440 SGC.SEC BENIFITS ? 








450 PENSION ? 








460 VARIABLE INCOME ? 








600 SET-ASIDE INCOME 








610 FUTURE GOALS ? 








$20 EMERGENCIES ? 








630 EDUCATION ? _ 








1 



Notice that you must use accounts 100, 200. 300, 400, 
6p0, and 700. By answering n to variable income, all 
of its sub -accounts are skipped. Pressing only uaiu to 



440 and 450 caused an answer of n to be assumed. Typing 
r SHE] to an account creates an error message and 
gives you the chance to try again. 




15 



INITIALIZATION 



After the account structure is set up, the I NIT program starts over 
with the first account and allows you to enter the current and 
budget amounts for the accounts you chose previously. 

Pressing only i«m:i causes the Computer to assume a value of zero. 
You will be returned to the option list automatically when finished. 

If you have no accounts to add and your account structure is exactly 
the way you want it to be, then save the data by following the 
Instructions below. Otherwise, you should insert the accounts you 
want before saving them, See page 17 for instructions on this. 



Saving Your Accounts 



.^ 



Once your accounts are completed, you must save them using option 
4. All of the programs (except REPORT) must be saved since your 
accounts are stored in the Computer's temporary memory. If you 
turn your machine off, they will be lost. When you record them on 
cassette or diskette, you can play them back later. 

If you have DISK BASIC, you will be asked for a TRSDOS filespec. 
Insert a TRSDOS diskette (or FORMAT a blank diskette for data if 
you have more than one drive). Type in a valid file name for your 
accounts and press iqjin:! . Do not use a period as part of the 
filespec unless you want to create a protected file. See below. 




If you have only one drive replace the Program diskette 
with the System diskette that you will save data on. When 
the data is saved, put the Program diskette back in. If you 



have 2 drives leave the Program diskette in Drive p and use 
a Data diskette in Drive 1 . Specify a Drive Spec as part of 
the filespec. 
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Using LEVEL II, the following will be displayed. 

LORD DATA TflPE<RECQRD>i THEN PRESS ENTER?. 

Insert a blank cassette tape to save your data on and ready your 
recorder. Make sure the Record and Play keys are depressed. Press 



When the accounts have been saved, the option list will reappear. 
You should save a second, backup copy. 



Adding Accounts to the Default List 



Below is an example of inserting the account 725 car payments 
at an indentation level of 2. Type fito indent each level, car 
payments was assigned account number 725 on the worksheet 
which puts it between 720 and 74 0. 




The account above and below the insertion point appears. Then, the 
new account number is printed between them. You can type 
the new required information, account name and balances. 
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INITIALIZATI ON 

If the account number already exists oris invalid, a 

* bad account number * message is displayed. If you already 
have the maximum of 60 accounts, a * no room to insert * 
message occurs. 

The cursor will sit at an indentation level of 1 and wait for you to 
enter your account name. Type a right arrow B to indent to 
the ne xt level . If you make a mistake indenting, type a shift back- 
arrow Emm B to start over again at level 1 . To add a zero-level 
account, you must create your own account list. See Appendix B. 

Type your account name after indenting as desired, Do not use 
commas or colons in the account name! The account name 
can be no greater than 18 characters. Press fJi?iia;i . 

If you have indented more than 5 levels, or have indented more than 
one level inward from the account above your insertion point, a 

* bad level* message is typed. 

Press u«i*;i without typing anything to cancel the insertion in case 
the wrong account number was typed, 



Type e n D Ellia instead of an account number to return to 
the option list. 

After you enter the account name, you will be asked the 
current and budget values. Press E2H13 for a zero value. 

NOTE; The insert option cannot change the main account/sub- 
account structure already in existence. In the example below, the 
insertion of 3250 carz will not change the existing structure, 



3000 TRANSPORTATION 

3100 BUS 

3200 CAR 

3300 GAS 

3400 MAINTENANCE 

The structure will still have 3200 car as the main account to sub- 
accounts 3300 and 3400, even though they are separated by the 
3250 account as shown below. 

3000 TRANSPORTATION 

3100 BUS 

3200 CAR 

3250 CAR2 

3300 GAS 

3400 MAINTENANCE 
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You can insert accounts later if you wish. However, this will affect 
the way you run cumulative reports. See notes on running these 
cumulative reports page 47. 

To insert accounts later, run the INIT program and request option 2. 
You will be asked to load your most recent accounts from cassette 
or diskette. If you have DISK BASIC, the following will be 
displayed. 



FILESPEC OF INPUT FILE 
DATE OF DATA: 7/2 
READING RCCOUNTS 
READING CHECKS 
READING CASH E^ENSES 
READING DEPOSITS 
READING SAVINGS DATA 






Under LEVEL II, you will be prompted with 



LOAD DATA TAPE(PLBV>, THEN PRESS ENTER?. 



As soon as you have inserted the proper diskette or cassette and 
typed the requested information, press mtmi and the data will 
load into memory. Once there, you can insert new accounts as 
illustrated above. 

NOTE: Using option 4, save your new account data once you have 
added what you want. 



Should I Renumber My Accounts? 

Renumbering accounts is a very severe action and should only be 
done when room is needed to insert new accounts. Also, you can 
renumber when you first create accounts and before you save them 
to put them in neat numerical sequence. 

If you renumber accounts in the middle of the year, you cannot 
create cumulative reports (account numbers must be the same to do 
this). 
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So, don't renumber your accounts if they are acceptable as they are. 

If you do decide to renumber accounts, use option 3. You will be 
asked to load your accounts from cassette or diskette if they are not 
already in memory. Then, you will be asked to enter a start 
value and an increment. 

ACCOUNT RENUMBERING 

ENTER START VALUE? tm 
ENTER INCREMENT? 1@0 
RENUMBERING. . . 

You should keep a record of the new account numbers on your 
worksheet next to the old numbers. From this time on, refer to the 
new numbers. 

NOTE: Use option 4 to save your accounts with their new numbers. 

Is That All? 

Once you have created your account structure as you want it — 
including insertion and renumbering — and you have saved this data, 
you can select the 0optionto stop this program. This option 
will ask you if you have saved your data as a reminder. If not, press 
N, and you will.be able to save it now. If you have already saved it, 
press Y, and the *endofrun* will be displayed. 

Under DISK BASIC, you will be returned to the MENU program so 
you can run another program if you want. 



_• 



Under LEVEL II, you will be returned to BASIC. 



1) CREATE ACCOUNTS 

2) INSERT ACCOUNTS 

3) RENUMBER ACCOUNTS 
4> SAVE DATA 



ENTER VOUR CKO 



HAVE YGU SAVED VOUR DATA W 
WAKE UP! PLEftSE ANSWER VES<V), 



* END OF RUN * 
READY 
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When Should I Use TRANS? 



The TRANS program is the heart of the Budget Management 
Package. It allows you to enter and cancel checks, enter 
deposits and enter savings withdrawals or deposits. Also, it will clear 
your old transactions so you can start a new month of data. This last 
feature will be described later. 

You should set up a timetable for using this program regularly, A few 
suggested schedules follow. 

You can use the TRANS program as soon as you create your 
accounts. Then, you can run it once each week and again on the last 
day of the month. On this schedule, you will save one copy of your 
accounts after each run of TRANS. You can label or name these 
WEEK1, WEEK2, WEEK3, etc They will be temporary files. 

On the last day of the month, your accounts will reflect the entire 
month, and you should label them JAN79, FEB79, etc., depending 
on the month. You should save an extra copy of this file for backup 
purposes since you will be keeping it for some time. 

Then, during the next month, you can re-use your temporary files 
from WEEK1, etc. as the temporary files of this month. You will 
have at least six sides of tapes in use after the first month. At the end 
of each succeeding month, you will have two more tapes. In DISK 
BASIC, use a diskette for these files and name them as illustrated 
above. 

NOTE: If you record more than one data file on each side of a 
cassette, be sure to keep track of where each file begins using the 
counter on your cassette recorder, 

An alternative schedule is to use the TRANS program only two times 
each month. You can label your accounts JAN79M for the mid- 
month temporary file and JAN79E for the end of month file that 
you save. 

You could also run the program every other week or run it to 
coincide with your payday. But, whatever you decide for your 
schedule, you should include running the TRANS program at the end 
of each month and saving this copy permanently. And don't forget 
to keep backups. 
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How Does TRANS Work? 

First, load the program and run it according to the Loading 
Instructions. The following will be displayed. 

BUDGET MANAGEMENT - TRANSITION 1. 
ENTER TODAY'S DATE <MM/DD/VV)? 8?/H/?B~ 
Type in the date. The option list will then be displayed. 



The first time you enter a choice 1-9 after you run the program, 
you have to load your account data into memory. Use the tape or 
disk with tht- most recent changes — the one you saved last. 

Under DISK BASIC, the following will be displayed. 



■_• 




^ 



DATA INPUT/OUTPUT 



ILESPEC OF INPUT F1L 
DATE OF DATA: 7/31 
READING ACCOUNTS 
READING CHECKS 
READING CASH EXPENSES 
READING DEPOSITS 

EADING SAVINGS DATA 



JUL7SB 
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You should insert your most recent account diskette and enter the 
name of the most current account file. 

Under LEVEL II, insert your most recent cassette and press QQQjJ 
Be sure that your recorder is set ready to play. 

LOAD DATA TAPE < PLAY >, THEN PRESS ENTER?. 



When the data has been loaded, the option you chose will begin to 
execute. All the options except 8 are described below. Option 8 is 
described later on page 37. 

To Deposit To Checkbook 

Option 1 allows you to deposit money in your checking account. 




The current checkbook balance is displayed before each 
deposit. You then enter the date, description, and 
amount of your deposit. The new balance will be displayed and 
you will be allowed to enter deposits until you type end uJHJii 
for the date. 



If you press Q2QH] without typing a date, the Computer will assume 
that you want the current date you entered when the program 
first started. 

The date you enter should be mm/dd format. Do not use the 
year for this entry. Month and day must each be two digits. 

The description should be no greater than 18 characters. 
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Outstanding Checks 

Option 3 will allow you to record checks as you write them. 




The current checkbook balance is displayed before the entry 
of each check. The date is mm/dd format, and, again, if you press 
ia t 'iia:i without typing a date, the Computer will use the date you 
typed at the beginning of the program. 

If the check number you recorded already exists, an error message 
* check exists * will be displayed. 

descriptions should be no greater than 18 characters. 

The exp. acct is the account number of where you spent the 
money. The check amount will be added to the expense account you 
designate, and all main accounts will be corrected. For example, if 
you paid your rent by check and the rent account number is 550, 
use 55p as the exp. acct. (You only need to enter the sub- 
account that you charge the check to. Main accounts will be figured 
automatically.) 

You may also charge checks to your savings account number 
if you write a cheek to deposit into your savings, or use your petty 
cash account number if you write a check to cash. 

To void a check, use a description of void and an amount of 
zero. You can use any sub-account you wish as the exp. acct. 
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To reflect a service charge or any special charge, use a check 
number below 100 and use a miscellaneous account 
number for the exp, acct. 

Type ENDH2iil3for the check number when you are finished, and 
you will be returned to the option list. 



Cash Account 



This account is used to record items you pay cash for and to keep 
track of your cash - your pocket money. Option 2 will allow you to 
enter a deposit or expenses on this account. 




Any other time you get cash - for example, you deposit part of your 
paycheck and get cash for the rest — you should make a deposit to 
this account. If you have no deposit, type BZ1H3 - 



Then, you will be asked to enter expenses. You should give the 
date in MM/DD format. If you press Q2f 
date you used before will be used. 



only, the CURRENT 



The description should be no greater than 1 8 characters, 

The exp. acct must be a valid account number, and it can have no 
sub-accounts. The amount of the cash expense will be added to this 
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account automatically, and all main accounts will be adjusted 
automatically. 

Type END u«Ha for the date to return to the option list. 

NOTE: If you wrote a check for cash, you can add it to your petty 
cash account automatically by using the petty cash account 
number for the exp, acct. when you use option 3 to enter the 
check. Then, you don't have to use option 2, 



Income Accounts 

Select option 5 to have all your income accounts displayed one at a 
time. You can enter an amount to add to each one. If you have 
nothing to add press 0. Type END hjiiih to return. 



K^9 




AMOUNT 

488 TOTAL INCOME 

590 REGULAR INCOME 

600 WAGE/SALARV ? 

?O0 SET-ASIDE INCOME 

888 FUTURE GOALS "> 

980 EMERGENCIES ? 

* DONE * 







s 



NOTE: Entering an income amount will not add the amount to your 
checking or savings account. If you deposit this income into one of 
these accounts, you must choose another option to deposit it. 

Savings Accounts 

The current savings account balance will be displayed before 
each savings transaction in option 6. Enter a negative amount by 
typing a minus sign, -, before the amount for withdrawals. Use 
positive amounts for deposits. 



Press QUOD only to use the current date you entered 
previously. 

The description should be no greater than 1 8 characters. 
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Type END for the date to return to the option list. 




NOTE: If you wrote a check to deposit into savings, you can add it 
to your savings account automatically by using the savings 
account number for the exp. acct. when you use option 3 to 
enter the check. Then, you don't have to use option 6. 



To Transfer Funds 

Option 7 allows you to transfer money from any account to any 
other account (main account or sub-account). 



After you enter the account number to which the money will 
be added that account's name and balance will be displayed. 

Then, you can enter the account number from which the 
money will be taken. Its name and current balance will be displayed. 

Finally, enter the amount to be transferred, and the action will 
take place, All main accounts will be corrected automatically to 
reflect any changes necessary. 



Type end 



to return to the option list. 
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TO ACCOUNT NUtl 
FROM ACCOUNT NUM 

AMO 



TO ACCOUNT NUN 
OM RCCOUNT NUN 



TO ACCOUNT MUM 
FROM ACCOUNT HUMi 
AMOL 



FUTURE GOALS 
PETTV CASH 



EMERGENCIES 



EMERGENCIES 



$0.00 

*12L ? A 



TO ACCOUNT NUI 1 



NOTE: This option can be used to correct some errors. In the above 
example, when the from account number is zero, the 
amount is added to the TO account number. You should be 
careful using this option for changes like this. 



^ 



To Cancel Checks 



Option 4 will probably be used whenever you get your monthly 
statement from the bank. 

Simply type the check number of the check you want to 
cancel. That check will be displayed on the next line. 

If the check does not exist, the * check not found * message is 
displayed. If the check is already cancelled, the * check 
already cancelled * message is displayed. 

Type ENDQZEHH to return to the option list. 
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r *v 








r „«U» CHECKS 








ENTER CHECK NUMBER? 








* CHECK NOT FOUND * 








ENTER CHECK NUMBER? 








713 RENT 


M.48. 00 


1206 








ENTER CHECK NUMBER? 












* CHECK ALREADV CANCELLED * 












ENTER CHECK NUMBER? 












729 ELECTRIC1 TV 


£25. 01 


1400 








ENTER CHECK NUMBER? 



















NOTE: The current date will be used automatically as the 
CANCEL DATE. 



Finishing Up 



You don't need to use all the options each time you run TRANS. 
Only request the options you need. When you finish, make sure 
you save your data before you stop. Use option 9, insert a diskette or 
blank cassette, and label the data according to the date of the 
transactions. 



DATA INPUT/OUTPUT 



FILESPEC OF OUTPUT F 
WRITING ACCOUNTS 
WRITING CHECKS 
WRITING CASH EXPENSES 
WRITING DEPOSITS 
WRITING SAVINGS DATA 
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LEVEL II BASIC users will see: 



LOftD DflTfi TAPE (RECORD), THEN PRESS ENTER?. 



Remember, don't use a period as part of your filename on diskette. 
Then, use option to end the session. 



I) STOP 

1) ENTER DEPOSITS 

2) ENTER CBSH EXPENSES 

3) ENTER OUTSTANDING CHECKS 
4> CANCEL CHECKS 

5) ENTER INCOME AMOUNTS 

6) ENTER SAVINGS TRANSACTIONS 
7> TRANSFER FUNDS 

8) START NEW MONTH 
9> SAVE DATA 



ENTER VOUR CHO 
HAVE ¥OU SAVED 
* END OF RUN * 
READV 



CV/N)? 



_/ 
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What About Mistakes? 

If you catch a mistake before you enter the transaction, you can 
either b ackspace to retype your correction or void the transaction by 
pressing mnia before completing the information required for the 
transaction. 

But if you have already completed the transaction and you do not 
discover the error untii later, you can use the EDIT program to fix 
the mistake. EDIT allows you to examine and/or modify the data 
(accounts or transactions) created by IN IT and TRANS. Use EDIT to 
check this data for errors and correct any that you might find. 

You should also use the EDIT program each time you run TRANS 
simply to check the changes you made for accuracy. This way you 
may be able to catch an error before it causes any problems. 

First, run the EDIT program according to the Loading Instructions. 

BUDGET MANAGEMENT - EDIT 1 8 
ENTER TODAY'S DATE <MrVDD/YY)? 07/31/78_ 
Enter the date as requested and the option list will be displayed, 



NT - EDIT 1. 6 

0) STOP 

1> EDIT ACCOUNTS 

2) EDIT OUTSTANDING CHECKS 

3) EDIT CANCELLED CHECKS 

4) EDIT CASH EXPENSES 

5) EDIT DEPOSITS 

6) EDIT SAVINGS DATA 
?) SAVE DATA 

■ 

ENTER YOUR CHOICE? _ 



When you enter the number for the item you wish to check or 
change, you will be asked to load your accounts as before. 
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In DISK BASIC, you should 
want to verify. 



the filespee for the data you 



FILESPEC OF INPUT FI" 
DATE OF DFlTR: It 

"DING ACCOUNTS 
DING CHECKS 

_AD1NG CASH EXPENSES 
RERDING DEPOSITS 
READING SAVINGS DATA 



In LEVEL II, load the correct cassette and press iaj»a:i . 

LOAD DATA TAPE^PLAY^ THEN PRESS ENTER?_ 

After the data is loaded, the first item for the option you chose will 
be automatically displayed. Press the down-arrow Q to display the 
next item. If the current item is the last one, a down-arrow will 
re-display it. Press the up-arrow key □ to display the previous item. 
If the current item is the first one, an up-arrow will re-display it. 

Type an E to change the item currently on display. This will cause a 
question mark to appear under each part of that ite m allowi ng you 
to type information to replace that item with. Press QZEQ3 onl y to 
leave it unchanged. 

Type x to return to the option list 

If you want to enter data that is too large foT that part of the item 
(an account number or a check number that does not exist) the 
* value error * message is displayed, and the current value will 
be used instead. 



_. 
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To EDIT Accounts 

Use option 1 to EDIT accounts. 



EDIT 



NAME 

..6 CHECKBOOK BALANCE 
2S0 SAVINGS ACCOUNT 
300 PETTV CASH 
400 TOTAL INCOME 
508 REGULAR INCOME 
^00 WfiGE/'SALRRV 



MK 


Jil 


BUDGET 


456 


96 


0. 08 


163. 


75 


&. 00 


10S. 


21 


0. 00 


752 


99 


817. 50 


7 49. 


99 


S12. 50 


74-5 


99 


WStSEr? 




Any changes in current or budget amounts of a sub-account will 
produce an automatic correction in all the main accounts affected by 
that sub-account, 
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To EDIT Outstanding Checks 

Use option 2. 



DATE 

7/31 
7/31 



DESCRIPTION 
GflS CREDIT CARD 
GflS COMPANV 
TELEPHONE 



PHONE 



FfMOUNT EXP ACCT 

5. 0@ £800 > 

6. 16 501 
34. 42 ? 



[EjESB KvrvFi 



1 



If a check number is changed to any existing check number, 
a * check exists * error is typed, and you will be asked to re- 
enter the check number. If you type the check's ow n numbe r, a 
* check exists * message is also displayed- Press 03113 only to 
keep the same check number. 

The EXP. acct must be a sub-account. It can't have any 
sub-accounts of its own. If the exp. acct is changed to a main 
account or to an account that does not exist a * bad expense 
account * message is displayed. You will then have to re-enter 
the account number. 

If the amount or exp. acct are changed to new values, the 
balances are corrected on that account and any other accounts that 
will be affected including main accounts. 

To EDIT Cancelled Checks 

Use option 3. 



- 



WRTN CRN 



DESCRIPTION 



7/31 7/31 SERVICE CHARGE 

6/15 7/31 HATER 

7/31 7/31 GASOLINE CARD 

7/31 7/31 GAS CGMPANV 



7/31 7/30 CAS PAVMENT 



114 7/31 7/31 CAR PRVMENT 



AMOUNT EXP. 

i. 50 r 

8.75 

5.00 [ 

5. 12 ' 



t 

t 
t 
t 
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Beneath the wrtn column is the date the check was written. 
Beneath can is the date the check was cancelled. 

If a check number is changed to any existing check number, a 
* check exists * message is displayed. You must re-enter a valid 
check number. If you type the check's own number, a * check 
exists * message is also displayed. Simply press EEJPp to keep the 
same check number. 

If the EXP. acct is changed to a main account or to an account 
that does not exist, a * bad expense account * message occurs. 
If the amount or the exp. acct number is changed, all the 
balances affected by the change will be corrected including main 
accounts. 

To EDIT Cash Expenses 

Use option 4. 




If the exp. acct is changed to a main account or to an account 
that does not exist, a * bad expense account * message occurs. 
If the amount or exp, acct number is changed, the balances 
affected by the chan^v will be corrected including main accounts. 

To EDIT Deposits 

Use option 5. 
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If the amount is changed, the checkbook balance is 
corrected to reflect the new value. 



-. 



To EDIT Savings Account 



Use option 6. 




If the amount of a savings transaction is changed, the savings 
account balance is corrected to reflect the new value. The format 
of the savings data is the same as for deposit data above. Deposits 
to the savings account are positive numbers; withdrawals are 
negative. You must precede negative numbers with a minus sign, — . 

Once you have checked all your files using the options described 
above, you can exit from the program using option 0. 

NOTE: If you have made any changes, it will be necessary to save 
your data using option 9 before exiting from the program. 
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STARTING A NEW MONTH 



What Happens At the End of the Month? 

The tapes and diskettes you use to save your accounts on cannot 
hold an unlimited number of checks, savings transactions, expenses, 
etc. Each time you run TRANS you add to the file you previously 
had. Eventually, you must clear all these items and reset balances to 
make room for more data. 

By convention, this is done after the end of each month. On the last 
day of the month, run TRANS and request any options you need to 
eater your last transactions for the month. Then, save this data as 
usual. 

But the file you save this time reflects the entire previous month. So 
name or label the file after the month and year. (For example, 
JAN79, FEB79, etc.) This file will be saved for quite some time, so 
you might want to make a backup copy of it. 

Then, the first week of the next month, or the first time you run 
TRANS during the next month, you load this permanent month-end 
file into memory. 

BEFORE you do any normal transactions, select option 8 to start a 
new month. The following will be displayed to remind you to save 
last month's data. 



NEW MONTH 

HAVE VOU SAVED THIS tlONTH'S DA- 
WAKE UP! PLEASE ANSWER VESCV), OR 

TVPE 1 TO START A NEW nGNTrP 
CLEARING 



Press Y if you already have it saved. Otherwise, press N, and you will 
have the chance to save it now. 

Press 1 to the second question and items from last month will be 
cleared from memory. (The only record you will have of these items 
now is on the cassette or diskette for that month.) Enter anything 
but I , and you will be returned to the option list, and no clearing will 
be done. 
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Starting a new month involves: 

• Setting the current amount in all accounts to zero except 

for CHECKBOOK BALANCE, SAVINGS ACCOUNT, and 
PETTY CASH. 

• All cancelled checks are deleted, leaving only 

OUTSTANDING CHECKS. 

• All cash expenses, deposits, and savings data are 
deleted. 

• Budgeted amounts are also unchanged. 

Once all this is done, you will be returned to the option list to enter 
your transactions as usual. Be sure to save your data when you get 
finished. 



. 
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How Do I View the Results? 



You can use the fourth and last program in the package, REPORT, 
to print reports to the Video Display or to a printer. 

You can choose to look at account data or at individual transaction 
items — outstanding or cancelled checks, cash expenses, checking 
deposits or savings transactions. 

In the category you choose to look at, you can specify a range of 
dates, account numbers, check numbers, descriptions or amounts. 
For example, you can look at outstanding checks written for an 
amount over SI 00.00. 

Also , you can print cumulative reports for more than one month, 

If you print the report (instead of displaying them), use a line 
printer, a Radio Shack Quick Printer, or a TRS-SO Screen Printer. 



To Print Monthly Reports 

Run the REPORT program. 

BUDGET MANAGEMENT - REPORT i. 
ENTER TODAY'S DATE CMH/KVYY)? 97/31/78- 
Enter the current date to display the first option list. 









7 


BUDGET MANAGEMENT - REPORT 1 8 




0) STOP 


1 


1 


1) READ-IN MORE DATA 


S ' 




2) REPORT 




± 


ER YOUR CHOICE? _ 





Type 2. If there is no data in memory, you will be asked to load the 
file for which you want reports. (This can be any one data tape, 
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permanent or temporary, and the reports will reflect the data on that 
tape.) 

In DISK BASIC, the filespec will be requested. 




In LEVEL II, the following prompt message is displayed instead : 



LOAD DRTfi TRPE<PLflY>, THEN PRESS ENTER?. 



Use the cassette or diskette with the file you want reports for. When 
the file is loaded, the second option list will be displayed. 




Enter your choice of where your reports are to be listed. If you use 
option 2, you must press CMHU after you ready your printer. When 
this is done, the third option list is displayed. 
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TVPE OF REPORT IS 

0> RETURN TO MENU 

1) ACCOUNTS 

2) OUTSTANDING CHECKS 

3) CANCELLED CHECKS 
4> CASH EXPENSES 
5) DEPQSIT5 
6> SAVINGS 



ENTER VOUR CHOICE? 



Here, you can decide to look at accounts or look at specific 
transaction items. Enter your choice and the final option list will be 
displayed before the report is printed. 



SEARCHING FOR 

6) RETURN TO MENU 

1) CANCELLED DATE 

2) CHECK NUMBER 

3) EXPENSES ACCOUNT 
4> DATE ENTERED 

5) DESCRIPTION 

6) AMOUNT 

7) ALL 

ENTER VOUR CHOICE? 



You can enter a choice here to help you search for a specific item 
or several items. Your choice from this option list depends on the 
choice you made on the previous list. Not all of these are available 
for every account option, 
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ACCOUNT 


OUTSTANDING 


CANCELLED 


CASH 


DEPOSITS 


SAVINGS 


CANCEL DATE 






V 








CHECK NO. 




V 


V 








ACCOUNT NO. 


V 


V 


V 


V 






DATE ENTERED 




V 


V 


V 


V 


V 


DESCRIPTION 


V 


V 


V 


V 


V 


V 


AMOUNT 


V 


V 


V 


V 


V 


V 


ALL 


V 


V 


V 


V 


V 


V 



For example, if you are looking at accounts, the cancel, date 
does not apply as a searching option. 

Option 5 will allow you to select any single descriptive phrase to 
search for. On the other options, If you only want to find one 
specific item, enter the same value for HIGH and LOW. If the 
low value is greater than the high value a * bad range * 
error occurs. 



SEARCHING FOR 

6> RETURN TO MENU 

1) CANCELLED D6TE 

2) CHECK NUMBER 
2) EXPENSES ACCOUNT 
4> DATE ENTERED 

5) DESCRIPTION 

6) AMOUNT 
?) ALL 



ENTER VOUR CHOICE' 



<L0N AMOUNTS <HIGH flEWUNl 



-> 
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When you enter a range value from this option list, only the data that 
falls into that range for the category you have chosen will be printed. 



If there is no data in the range you specified or in the category you 
chose, a * NO entries * message is displayed. 

At any time while a report is being printed, you can end it by 
pressing the @ key. You must then m-ess 13781311 to return to the 
option list. 

Note: 

If you use a screen printer, you can print one screen at a time by 

pressing l^UU when the press enter to continue? message 

occurs. 

Following are sample reports. The percent column tells you what 
percentage of the budget has been used up to this point. The 
remaining column shows the difference between the budget 
value and the current value. 



DflTE 


BUDGET MANAGEMENT REPORT 
** DEPOSITS REPORT ** 
DRTE: 7/31/78 

DESCRIPTION AMOUNT 


7/14 
7/28 


PflVCHECK-*7ft 99 38499 

PAVCHECK-S50 324 99 



PAGE 1 



BUDGET MANAGEMENT REPORT PAGE 1 

** SAVINGS REPORT ** 
DATE: 7/31/78 



DATE DESCRIPTION AMOUNT 

* NO ENTRIES * 
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BUDGET HflNHGEIlENT REPORT 
** OUTSTANDING CHECKS REPORT ** 
DATE: 7/31/78 



MM 
PRGE 1 



^ 



IBER 


WTO 

7/31 
7/31 

7/31 
7/29 


DESCRIPTION 


AMOUNT 

5,86 
6.16 

34.42 
140.00 


EXPENSE 


116 
118 


GASOLINE CHARGE CHRP 

6RS CONPflNV , 


2888 
2W& 


119 
120 


TELEPHONE , 

RENT 


2288 
1600 



BUDGET MANAGEMENT REPORT 
** CANCELLED CHECKS REPORT ** 
DflTE: 7/31/78 



PRGE 1 



IMBER 

1 


DHTE 

7/31 
6/15 
7/31 
7/31 
7/31 
7/31 
7^1 
7/31 
7/31 
7/31 


DESCRIPTION 

SERVICE CHflRGE 

HATER 

GASOLINE CARD .... 




103 
103 





lie 


GftS COMPANY 




111 

112 
113 
114 


CAR PRVNENT 

BROWN SUIT 

WflTER 

CAR PflVMENT 


^ * * ^ ■>■ + + + ^ ■ 


US 
117 


ELECTRICITV 

CASH 





AMOUNT 


EXPENSE 


CANCELLED 


150 


3258 


7/31 


8.75 


2100 


7/31 


5,88 


2888 


7/31 


5.12 


26B8 


?m 


98.00 


3888 


7/31 


15B. 15 


2466 


7/31 


&38 


2100 


7/31 


104.57 


3666 


7/31 


52.11 


1308 


7/31 


40 80 


2358 


7/31 



-, 



BUDGET MANAGEMENT REPORT 
** CASH EXPENSES REPORT ** 
DATE: 7/31/78 



PAGE 1 



DflTE DESCRIPTION 

7/26 GROCERIES 

7/31 GROCERIES 

7/31 OIL PAINTS A BRUSHES 



AMOUNT 



EXPENSE 



50.66 


2386 


50.66 


2308 


26.68 


3266 
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BUDGET MANAGEMENT REPORT 
** ACCOUNTS REPORT ** 
DfiTE: 7/31/78 



REPORTS 



PAGE i 



RCCOUNT 



NAME 



CURRENT 



BUDGET 



PERCENT REttRINING 



1O0 CHECKBOOK BALANCE 

200 SAVINGS ACCOUNT 

360 PETTV CASH 

406 TOTAL INCOME 

560 REGULAR INCOME 

€00 HAGE/SALARY 

700 VARIABLE INCOME 

see bonus 

960 INTEREST 

1000 SWINGS 

1100 SET-ASIDE INCOME 

1208 FUTURE GOALS 

1300 EMERGENCIES 

1400 TOTAL EXPENSES 

1506 REGULAR EXPENSES 

1680 RENT/MORTGAGE 

1706 HOUSE MAINTENANCE . . 

1886 UTILITIES 

1980 ELECTRICITY 

2000 NATURAL GAS 

2180 WflTER 

2209 TELEPHONE 

2366 FOOD * BEVERAGE 

2356 MEALS OUT 

2400 CLOTHING 

2500 TRflNSPORTRT I ON ... . 

2600 BUS 

2788 CAR 

2890 GAS 

2900 CAR MAINTENANCE 

3806 CAR PAYMENTS . . . 

3100 MEDICAL 

3268 MISCELLANEOUS 

3250 SERVICE CHARGE 

3388 SEASONAL EXPENSES .... 

3468 EDUCATION 

3500 TRAVEL 



_______ 





456.96 


6.80 


163. 75 


0.00 


108.21 


0.00 


752.93 


817. 56 


749.99 


812.56 


749.99 


812.56 


3.00 


5,00 


6.00 


6.80 


3.00 


5 08 


3.08 


5.00 


0.00 


0.00 


6.06 


0.06 


0.00 


0.00 


779. 68 


695. 67 


779.08 


695.07 


148 08 


140. 00 


0.08 


5 00 


80.44 


4900 


5211 


25.90 


11.28 


15.00 


17.85 


3. m 


34.42 


25.08 


160. 08 


125.00 


40.00 


50.00 


150.15 


5.60 


212 57 


139. 57 


ft 06 


15.66 


212. 57 


124. 57 


10.00 


15 00 


0.08 


5 00 


202.57 


104.57 


000 


500 


20.00 


158,00 


1.56 


158 


0.00 


0,60 


0.00 


0.66 


0.00 


6.08 



0.00 


0.00 


0.00 


6.60 


92.11 


64.51 


92.31 


62.51 


92 31 


62.51 


60.00 


2.68 


8.00 


06 


SB. 83 


2.00 


60.88 


2.00 


6.06 


0.00 


a ee 


6.66 


0.00 


0.00 


112. 09 


34,81- 


112.89 


84.01- 


100,00 


0.00 


8.80 


5 80 


164. 16 


31. 44- 


268.44 


27. 11- 


75.26 


3.72 


189.44 


805- 


137.63 


9.42- 


80,80 


25.68 


80.08 


18.86 


3083. 80 


145. 15- 


152 38 


73.68- 


0.08 


15.60 


170.64 


ss.ee- 


66.67 


5,00 


0.00 


5,00 


19172 


93.00- 


8.00 


5.00 


13.33 


130. 00 


100. 00 


8 00 


8.88 


60 


0.00 


6.88 


0.00 


0-00 
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If you use a screen printer: 

BUDGET MANAGEMENT: ACCOUNTS PAGE 1 DATE 7/31/78 

NO. NAME CURRENT BUDGET REMAINING 

180 CHECKBOOK BALANCE 456. 96 0. 00 00 

200 SAVINGS ACCOUNT 1S2. 75 0. BO 6. 00 

308 PETTV CASH 188. 21 O. 80 8. 80 

400 TOTAL INCOME 752, 99 B17. 50 64. 51 

500 REGULAR INCOME ....... 749 99 812. 58 62. 51 

688 UAGE/SALARV 749. 99 812. 50 62. 51 

700 VARIABLE INCOME 3. 00 5. 08 2. 88 

800 BONUS 8. 00 8 80 0. 08 

908 INTEREST 3. 00 5. 00 2. 88 

1000 SAVINGS 3. 88 5. 80 2. 00 

1188 SET-RSI DE INCOME 0, 00 0. 00 0, 80 

1200 FUTURE GOALS 8. 00 0. 00 0. 00 

1388 EMERGENCIES 6. 86 8 ee 00 

PRESS ENTER TO CONTINUE? _ 

BUDGET MANAGEMENT: ACCOUNTS PAGE 2 DATE 7/31/73 

NO. NAME CURRENT BUDGET REMAIN I NG 

1488 TOTAL EXPENSES 779. 08 695. 87 84. 01- 

1500 REGULAR EXPENSES 779. 08 695. 87 84. 01- 

168B RENT/MORTGAGE 146. 00 140 00 8. 00 

1700 HOUSE MAINTENANCE . . 0. 00 5. 00 5. 00 

1800 UTILITIES 80. 44 49. 00 31. 44- 

1900 ELECTRIC I TV 52. 11 25. 08 27. 11- 

2888 NATURAL GAS 11. 2S 15. 08 3. 72 

2108 WRTER 17. 05 9. 88 3. 05- 

2280 TELEPHONE 34. 42 25. 88 9. 42- 

2388 FOOD & BEVERAGE 180. 80 125. 00 25. 0W 

2350 MEALS OUT 40. 00 50. 00 10. 00 

2400 CLOTHING 150. 15 5. 00 145. 15- 

2588 TRANSPORTATION 212. 57 139. 57 73. 00- 

PRESS ENTER TO CONTINUE? _ 

BUDGET MRNRGEMENT: ACCOUNTS PAGE 3 DATE 7/31/78 

NO NAME CURRENT BUDGET REMAINING 

2600 BUS 8. 08 15, 88 15, 80 

2700 CAR - 212. 57 124. 57 88. 80- 

2800 GAS 18. 00 15. 80 5. 00 

2900 CAR MAINTENANCE 8. 08 5. 88 5. 00 

3000 CAR PAYMENTS . . . 202. 57 104. 57 98. 80- 

3188 MEDICRL 80 5. 00 5. 88 

3288 MISCELLANEOUS 20. 88 158. 00 130. 88 

3250 SERVICE CHARGE 1. 56 1. 50 0. 00 

3388 SEASONAL EXPENSES 0. 00 0. 88 86 

3460 EDUCATION 8. 08 0. 00 60 

3500 TRfiVEL 0. 08 0. 08 0. 86 

PRESS ENTER TO CONTINUE? _ 
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You can cancel reports by pressing the @ key. Then answer the question by 
pressing the MJHaji key. 

BUDGET MANAGEMENT: CANCELLED CHECKS PAGE 1 DATE 7731/78 

NO. WRTN CAN DESCRIPTION AMOUNT EKP. ACCT 

1 7/31 7/31 SERVICE CHARGE 1. 58 3258 

101 6/15 7/31 WATER 3-75 2188 

109 7/31 7/31 GASOLINE CARD 5. 00 2800 

110 7/31 7/31 GAS COMPANV 5. 12 2008 

111 7/31 7/31 CAR PHVMENT 93. 00 3888 

* ABORTED * 



PRESS ENTER TO CONTINUE? _ 
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Printing Cumulative Reports 

You can also use the REPORT program to print reports for more 
than one month, even though each month is on a separate tape or 
diskette file. 

When you first run the program, use option 1 on the first option list. 
After you read in the first tape or diskette file, you will be returned 
to the option list. 

Continue to use option 1 until you have read in the last file you want 
to use. Then, use option 2, 

The rest of the instructions are the same as for the single reports. 

NOTE: After the first cassette or diskette has been read, only 
accounts that match those on it will be read. If the account is not on 
the first file, it will be ignored on later cassette or diskette files. The 
current and budget values are added. 

Thus, if you have added accounts at some time after you first created 
them, the latest file with the most accounts on it should be read in 
first. 

This is why you can't run cumulative reports if you have renumbered 
your accounts since you began. All of your old account numbers will 
not match the new ones, and one set will be ignored. 

Tips On Reading the Reports 

Pay close attention to the remain ing column. You can use it to 
guide changes in your spending habits. If you have a lot left over in 
one category that you budgeted but did not spend, this tells you 
that the budget amount is not realistic. If you have a negative 
amount, you spent more than you budgeted. 

You may change the budget amount using the EDIT program. 
You can change your spending habits using your will power. 

If you have trouble seeing exactly where your money is going, you 
may want to create more sub-accounts or insert new accounts using 
the IN IT program. 

You can judge all these things better after you've used the program 
for a few months. So experiment and enjoy yourself using these 
programs; they are at your service. Try playing with some test data 
for a few days to get a "feel" for the package. 

Happy Budgeting! 
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(Worksheet) 



ACCOUNT NUMBER 


LEVEL 


ACCOUNT NAME 


CURRENT 


BUDGET 
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(Worksheet) 



ACCOUNT NUMBER 


LEVEL 


ACCOUNT NAME 


CURRENT 


BUDGET 
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(Worksheet) 



ACCOUNT NUMBER 


LEVEL 


ACCOUNT NAME 


CURRENT 


BUDGET 
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Generating Your Own Account List 

If you wish to generate your own account list, you must create 
data statements to replace those found in the IN IT program. You 
need to have a little programming experience to do this because you 
will have to modify the program. 

It would be a good idea to save a copy of the original version even 
after your changes are complete. 

First cuoad the INIT program (the only one you have to 
change). Then, use the delete command in BASIC to delete lines 
10000-1 0090 as follows. 



DELETE 16006-16996 

This deletes the default account list. Now t you must replace it with 
your own accounts from the Worksheet you filled out. You need to 
use the account name and level for now. 

The first account MUST be checkbook balance with a Level 
of zero. 

The second account MUST be savings account with a Level of 
zero. 

The third account MUST be petty cash with a Level of zero. 

The fourth account MUST be total income with a Level of 
zero. This account must have at least one sub-account beneath it. 

After your income accounts you MUST have the total 
expenses account with a Level of zero. This account must also 
have at least one sub-account beneath it. 

You may then add as many zero level accounts as you wish. Each 
zero level account starts an independent block of accounts. 

The following example sets up a couple's income and expenses 
separately. 
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Worksheet 



ACCOUNT NUMBER 


LEVEL 


ACCOUNT NAME 


CURRENT 


BUDGET 







CHECKBOOK BALANCE 











SAVINGS ACCOUNT 











PETTY CASH 











TOTAL INCOME 








1 


HUSBAND'S PAY 








1 


INTEREST INCOME 











WIFE'S INCOME 








1 


WIFE'S PAY 








1 


INTEREST INCOME 











TOTAL EXPENSES 








1 


HOUSE PAYMENTS 








1 


UTILITIES 











WIFE'S EXPENSES 








1 


CAR PAYMENTS 








1 


TELEPHONE 











JOINT EXPENSES 








1 


COOKIES 








1 


FOOD BEVERAGE 
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Start entering your accounts as data statements at line 1 0000. 
Each line should be numbered in increments of 1 0. Also, each line 
should begin with the word data followed by the account 
name, a comma, the account's Level, a comma, the next account's 
name, a comma, that account's Level, and so on. 

The data statements would look like this for the example above: 

10000 DATA CHECKBOOK BALANCE, 0. SAVINGS ACCOUNT. 0, PETTY CASH, 

10010 DATA TOTAL INCOME, 0, HUSBAND'S PAY, 1, INTEREST INCOME, 1 

10020 DATA WIFE'S INCOME, 0, WIFE'S PAY, 1 , INTEREST INCOME, 1 

10030 DATA TOTAL EXPENSES, 0, HOUSE PAYMENTS, 1 \ UTILITIES, 1 

10040 DATA WIFE'S EXPENSES, 0, CAR PAYMENTS, 1, TELEPHONE, 1 

10050 DATA JOINT EXPENSES, 0, COOKIES, I 

10060 DATA POOD & BEVERAGE, 1. " ", -1 



BEWARE! Don't use commas or colons as part of account 

NAMES. 

After the last account is a single space enclosed in quotes, with a 
level of minus one, This must ALWAYS be the last two pieces of 
DATA. 

Save this new INIT program on cassette or diskette when you are 
done so you can run it. 

The new version of INIT will use your accounts instead of the ones 
originally programmed. You can press Y to use each account. 
Then, you will be asked a current and budget amount for each 
of your accounts just as in the original program. 

If you receive a * bad level* or a * fatal error aborted * 
message, it means the program finds your indentation levels 
inconsistent. Go back through your data statements to see if you 
can find the error and correct it. 

Finally, use option 4 of the INIT program as usual to save your 
account structure. 

You can renumber it, or add to it at any time. 
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Using the Quick Printer 

If you use a Radio Shack Quick Printer for your reports and you'd 
like to keep your printouts from overflowing to 2 lines, you can 
print the Video Display on the Quick Printer. 

Simply change all prints to lprints in lines 3510-3520, lines 
6010-6060 and in line 1010 and line 2365 of the REPORT program. 
Then, ask for Video Output (option 1 in the second option list of the 
REPORT program). The reports will go to the Quick Printer. 
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Error Messages 



UNEXPECTED ERROR #nn IN LINE xxxx-RUN ABORTED 

Error nn occurred while opening, closing, reading, or writing to disk 
or tape. 

If this error occurs because you used an invalid TRSDOS filespec 
when you tried to load or save your data files, you can type 
resume 220 B£U3Jto try again. 

*FILE NOT FOUND* 

Specified input file does not exist. 

*INPUT DATA EXCEEDS MEMORY ALLOCATION* 

Too much data in the data file. Start a new file. 

*BAD LEVEL* 

Level is inconsistent with previous level or is greater than five. 

*FATAL ERROR* 

The program was aborted due to a serious error. 

*BAD ACCOUNT NUMBER SEQUENCE* 

Invalid renumbering request. 

*NO ROOM TO INSERT* 

All memory allocated to accounts has been used and no room exists 
for new account insertion. Start a new file. 

*BAD ACCOUNT NUMBER* 

The new account number for insertion exists or is too large or small. 

*NO CHECKS* 

No outstanding checks exist so no cancelling can be done, 

*CHECK EXISTS* 

Attempt to enter a check with the same check number as a 
previously entered check. 

*BAD EXPENSE ACCOUNT* 

The specified account was a main-account or does not exist, 

"CHECK NOT FOUND* 

No check with specified check number exists. 

*CHECK ALREADY CANCELLED* 

Attempt to re-cancel a previously cancelled check. 
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*CASH EXPENSES FULL* 

All allocated memory for cash expenses has been used and no new 
entries may be made. Start a new file. 

♦DEPOSITS FULL* 

All allocated memory for deposits has been used and no new entries 
may be made. Start a new file. 

♦SAVINGS DATA FULL* 

All allocated memory for savings transactions has been used and no 
new entries may be made. Start a new file. 

*CHECK FULL* 

All allocated memory for checks has been used and no new entries 
may be made. Start a new file. 

*N0 DATA* 

The selected data category has no entries, and therefore no editing 
can be performed. 

*BAD VALUE* 

The entered check number, date, or account number was too large 
(greater than 32767), 

♦ABORTED* 

The at-symbol (@) was depressed during a print-out to cancel the 
report being generated, 

*BAD REQUEST* 

The searching request was invalid for the previously selected data 
category. 

♦NO ENTRIES* 

No data exists in the specified data category or no data was found in 
the designated range during a search. 
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If any fuil error messages occur, you have to use option S in the 
TRANS program to START A NEW month, even if it is not yet 
the end of the month. You can end your new file on schedule at 
month-end. Then, you will have two permanent files for that month, 
and you will need to use both of them as input to REPORT. 

Note: When a month is split into two parts, you must EDIT the 
"budget" amounts and change them all to half their value. (If this is 
not done, the budget amounts are added together at report time. This 
would double your "budget" amounts.) 

Or you can continue with the new file past the month-end until it 
gets full also. You will start a new file whenever this happens from now 
on.Ifyoudo this, you will no longer be on a monthly schedule. This 
might turn out to be inconvenient, since many of your budgeted 
items occur on a monthly basis. 
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Variable Usage 



M 1 Maximum number of accounts allowed 

M2 Max imum number o f checks 

M3 Maximum number of cash expenses 

M4 Maximum number of deposits 

M5 Maximum number of savings transactions 

K 1 Current number of accounts in memory 

K2 Current number of checks sn memory 

K3 Current number of cash expenses in memory 

K4 Current number of deposits in memory 

K5 Current number of savings transactions in memory 

Al% Account number (negative if sub-account) 

A2S Account name ( 1 8 characters) 

A3# Current account amount 

A4# Budget (predicted) account amount 

A6% Reference/level value (See below.) 

Cl% Check number 

C2% Date written 

C3 $ Description ( 1 8 characters) 

C4 Amount of check 

C5% Expense account index (See below.) 

C6% Date cancelled (zero if not cancelled) 

El% Date of cash expense 

E2$ Description (18 characters) 

E3 Amount of cash expense 

E4% Expense account index (See below.) 

Dl% Date of deposit 

D2S Description ( 1 8 characters) 

D3 Amount of deposit 

S 1 % Date of sav in gs transaction 

S2$ Description (1 S characters) 

S3 Amount (positive for deposit; negative for withdrawal) 

DT Today's date 

F Data file flag: F=0 if not data file in memory 

F=l if data file is not in memory 

X String for data delimitor-set to a text comma (",") 

ADS Advance cursor right 

ELS Erase to end of line 

CU$ Move cursor up 

BL$ Move to beginning of line 

CDS Move cursor down 

J Current menu selection 

D Date of data file 

DK Disk Hag: DK=0 if LEVEL II BASIC Computer 

DK=1 if DISK BASIC Computer 
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Reference/Level Value 

Value = Reference Index * 10 + Level 

The Level here is the same as that on the Worksheet. The Reference 
points to the Index on the main-account or is equal to zero if there 
is no main-account. 

Expense Account Index 

Instead of saving the actual expense account, a pointer is stored as an 
Index to the desired Expense Account, 
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Memory Usage 



The information below may be used by an experienced programmer 
to take advantage of larger RAM memory than 16K. The Budget 
Management Package is written for: 

61 Accounts (The 61st Account is always an END-OF- 

ACCOUNT marker.) 
SO Checks 
20 Deposits 
25 Cash Expenses 
20 Savings Transactions 

The following calculations must be performed to assure an out of 
memory error does not occur. 



ITEM 


BYTES USED 


Program text 


8324 


Program string space 


432 


Program stack space and variables (overhead) 


860 


Account (41 each * 61) = 


2501 


Checks (33 each * 50) = 


1650 


Cash expenses (29 each * 25) = 


725 


Deposits (27 each * 20) = 


540 


Savings (27 each * 20) = 


+ 540 



s 



Total = 15572 

Ml = one plus number of accounts desired 

M2 = number of checks desired 

M3 = number of cash expenses desired 

M4 = number of deposits desired 

M5 = number of savings transactions desired 

String Space = 432 + 18 * (M1+M2+M3+M4+M5) 

The result replaces 3600 in line 1 00 of each program as the amount 
of string space. 

Memory Available >9616 + M1*41 + M2*33 + M3*29 + M4*27 + M5*27 

If the memory you have in your system is less than the above, an out 
of memory error will occur when you try to run the program. 

You should change line 1 1 in each program to reflect the correct 
values of variables Ml through M5, 
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Program Listings 



INIT 69-72 

TRANS 73-76 

EDIT 77-81 

REPORT 82-86 
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IN IT - BUDGET MRNAQEMENT 1. JAN 1979 PAGE 



10 ' BUDGET MANAGEMENT - INITIALIZATION 1. 

20 ' COPYRIGHT CO 1579 TANDV CORP. 

166 CLEAR* 36O0> : DEFINTI-N : DEFSTRX 

110 Ml=61 : M2=50 : M3=25 : M4=20 : M5=M4 

120 X-", J ' : At>*=CHR$(25> :EL$=CHR$<30) :CU*=CHR*<27> : BL*=CHR*<29> 

130 DIMAmMl), A2*CM1), A3#<M1), A4tt<Ml>, Re^Ml? 

140 DIMC1£<M2>, C2K<M2), C2*<M2>, C4<M£>, C5KCM2), C6^M2> 

150 DIHEIXCHS), E2*<M3>, E3e!M3>, E47i(M3) 

160 DIMDl?i(M4),D2*<M4>,D3<:i14> 

170 DIMS1^<M5).S2*<M5) J S3<:N5> 

190 ONERRORGOTO200:DK-l:I=INSTRC"A" f "A'O;GOTO210 

200 £>K=0:RESUME21O 

210 ONERRORGCTO0 

220 CLS: PRINT :PRlNTTBBa0> "BUDGET MANAGEMENT - INITIALIZATION 1. 0":PR1NT 

230 IFDK10100PRINT"ENTER TODAY'S DATE (MM/DD/YY)"; : X:*=l :GOSUB900:£/T=VRL<DT$> :XX 

=0:GOTO220 
240 PRINTTABCISVO) STOP 

"TAB<15y j l> CREATE ACCOUNTS 

"TAB<15)"2> INSERT ACCOUNTS 

"TAB(15>"3) RENUMBER RCCOUNTS 

"TRB<15)"4;> SAVE DATA 
268 PRINT: INPUT "ENTER VOUR CHOICE"; J 
270 IFJ=0THENCt="": PRINT : PR INT "HAVE VGU SAVED VOUR DATA CV/N>"j : GOSUB3G0 : IFVN^OT 

HEN220ELSEE=99 : GOSUB500S 
272 IF(J-l)*a-2)*(J-3>*fT-4>O0THEN220 
275 IFJO1ANDF=0THENGOSUB9500 
280 ONJGOSUB1000, 2000. 3000, 9000:GQTO220 
300 VN=-1 : GOSUB708 : PRINT ; IFB*=" "THENB*=C* . 

305 C$=LEFT*<B*.. 1) : IFC*="Y"THENYN=1 :RETURNELSEIFC*="N"TAENVN-0: RETURN 
310 PRINr'WRKE UP! PLEASE ANSHER VES<V>, OR NOW) "> :IFF1=1THENRETURN:ELSE300 
320 FORDV=1TQ1000 : NEXT : RETURN 
340 LL=INKA6E CI) -10*1 NT<A6X< I )/10>): RETURN 
350 CLS : JFJ=4THENPRIMTAB<18> "DATA INPUT/OUTPUT" ; RETURN 
355 PR INTTABU8) "ACCOUNT "; : ON JGOT0361, 362, 363 

361 PRINT" INITIALIZATION" : RETURN 

362 PR INT" INSERT ION": RETURN 

363 PRINT "RENUMBERING": RETURN 

370 PR1NTUSING "*##*# "; ABS<N); :PRINTSTRING*(2*L, ■ ">, A$; TABC34); :RETURN 

380 6OSUB700:A3#U)=VAL<:B*) :PRINTBL*; STRINGS 48, RD*).i ELti :GOSUE7B0:R4#<:J)=VALs:B$ 

SPRINT 
39B IFJ>lTHENAl?i(J>=-l*AlK<J) : RETURNELSERETURN 

500 R-0 : F0RI=K1-1T04STEP-1 : GOSUB340 : JFU+1=LTHENR=I : GOTO510: ELSENEXTI 
510 I FRO0THENA6K <Kl)=A6?i (KD+R+10 : RETURN 
528 E=3:GOSUB5000 
530 E=5:GOSUB5000:STOP 
650 K=INTCR6KCK)/1S) : IFK=0THENRETURN 
660 A3#<K)=A3#CK>+A3»^M);A4#<K>=A4#<:K>+A4I*<M> :GOTO650 
700 PRINT"? "i 

750 B*="":L=0:PRINTCHR*<14>; 
7G8 A*=INKEV*: IFA*=" "THEN760 

778 IFA*=CHR*a3>THENPRINTCHRK15); : L=L+1 : RETURN 

73S IFA*=CHR*-;8>THENIFB$0 ,1 "THENPRINTA*; :B*=LEFT*(B*, LEN(B$)-1> ; GOTG76OELSE760 
?3d IFA$=""THENL=L+1: PRINT" "; :GOTO760 



INIT - BUDGET MANAGEMENT 1. B JAN 1979 PAGE 



800 IFA*=""THENPRINTSTRING*<LEN<B*H2*L, CHR*<8) >; EL*; ;GOTG750 

816 IFA*<" "0RA*>"Z"THEN763ELSEPRINTA*; : B*=B*+fl* : G0T0760 

908 GOSUB7O0 : IFLEN(B*X>5+3*X;;THEN920ELSED1*=LEFT*<B*, 2) : D2*=MID*(B*, 4, 2) : D3*=RI 

GHT*(B*, 2) : IFVRL<D1*)<1QRVAL<D1*)>12THEN930 
905 IFVAUD2*X1GRVAL<D2*)>31THEN930ELSEIFX?:=1THENIFVAL<D3*X0THEN920 
910 DT*=D1*+D2* : I FXK=1THENDT*=DT*+D2* : RETURNELSERETURN 
930 DT*=" ": RETURN 

950 PR INTUSING" ##/#*"; INKD/100); D-1G0* INT (D/100); :RETURN 
1000 GG5UB350; PR INTTABC 22 > "WANTED (V/N> " : N=0 : K1=N : Fl=l : RE5T0RE 
1010 READA*,L 
102S IFK8THEN1100 

1025 1 FL>5THENE=2 : GOSUB5S00 : PRI NTfl*, L : GOTQ530 
1030 K1=K1+1 : IFKi+i:>MlTH£NE=2 : GOSUBS000 : GDSUB320 : RETURN 
1046 A2*(Ki)=A*: IFL=0THENN=(1+INT(N/100>>*100:ELSEN=N+10 
1050 GOSUB370: IFL=0THENPRINT:GOTO1070 

1060 PRINTBL*; STRINGS 34, AD*); EL*; : Fl=l ; L1=L : GGSUB303 : L=L1 : IFVN=1THEN1070 
1065 IFVN=0THENKl=Kl-l:GOTOi090:ELSEPRINTCU*; :GGTO1860 
1070 BUCKlJ=N:H6KtKl>=L 
1085 IFL=0THEN1010ELSEGOSUB500: GOTO101G 
1690 REflDfl*. LL : IFLL>LTHENN=N+1S : GOTO1090ELSEKL : GOTG1020 
1100 K=K1+1 : A1K(K>=32001 : R2*(IQ=" END -OF- ACCOUNTS 

1119 G0SUB350 : PRI NTTflB (24) "CURRENT"T8B<48) "BUDGET 

1120 F0RJ=1T0K1 ; N=A1^ J) : R*=fi2*(J) : I=J : GO5UB240 : L-LL : I=J+1 : G05UB34G : GDSUB370 
1120 IF(L=0ORLaL)RNDJ>2THENPRINT : G0T01190 

1140 GOSUB2B0 : K=J : M= J : GGSUB650 

1190 NEXTJ:F=1:F1=0: RETURN 

2000 GOSUB350:CD*=CHR*<26) —" 

2610 I FK1+2>M1ORK1=0THENE=7 : GOSUB5000 : G05UB22G : RETURN 

2020 PRINT: PRI NT "ENTER NEW ACCOUNT NUMBER"; :GOSUB700: PRINT :NN=VAL(B*> ;IFB*="END" 

RETURN 
2030 M=0 : F0RI=4T0K1 : 1 FNN>AB5 ( R1Z < I > > ANDNN<CRB5 < ftLJK I +1) >THENM= I +1 : NEXTELSENEXT 
2040 I FM=0THENE=8 : GOSUB5000 : GOTO2029 
2045 PRINTSTRING*<5, CHR*(13:>)+STRING*<;4,CU*>; 
2050 N=fll?i(M-l> : fi*=A2*(M-l> : I=M-1 ; GOSUB340 : L=LL : G0SUB37G : PR I NT "CURRENT" TAB (48) "B 

UDGET 
2060 PRINT : N"fll*<H) :W=fl2t<M) : 1=11: GOSUB340:L=LL:GOSUB37B:PRIHlBt* CU*; 
207B PRINTU5ING"###M "; NN; : GOSUB750 ; IFB*=" "THENPR INTEL*; CD* J CD*; EL*; : GOTO2020 
2B80 r=n-l:GOSUB340: IFL=LLORL=LL+1THEN2100 
2090 E=3:GOSUB2500:PRINTEL*; :GOTO2070 

2180 F0RI=Kl+2TOM£TEP-l:fllX<D=Al?ia-l):A2*a>=fl2t<I-l):fl3i<I>-AS#tI-l>;fl4#<I>=fl 

4#<I-1) :A6X(I>=A6?ia-l) :NEXT 
2110 KK=K1+1 : ftLS CM) =NN : A2* <M) =B* : A3# ( M) =0 : A4* ( M >=0 : ft€X<m=L : GO5UB2600 
2140 PRINTBL*; STRING* (34, AD*); EL*; :COSl»780;fl3tCH>=VflL<B») 
2150 PRINTBL*; STRINGS 48, RD*); EL*; : GOSUB700: A4#(M)=VAL(B*> 
2160 I=M : GOSUB340 : L=LL : K1--H : GGSUB580 : K=M : GO5UB650 : K1=KK 
2163 I=M-1 :GGSUB340: IFLXLTHENRiZ<M-iJ=flBS<ftL:S<:i1-iM 
2167 I=M+1:GO5UB340: IFL>=LLTHENAiri(f1)=-l*ABS(AlK«:M)) 
2180 PRI NTBL*; CD*; CDts EL*; CD*; TAB < Z> "FIXING REFERENCE POINTERS... 
2190 FORI=M+1TOK1 : IFINKflfflK I V10)>=MTHENR6K( I )=RSi< I H10 : NEXTELSENEXT 
2200 IFK2O0THENFORI=1TOK2 : IFC5K( I »=MTHENC5>:( I )=C5K< I Hi : NEXTELSENEXT 
2210 IFK2O0THENFORI=1TOK2 : IFE4K( I )>-«THENE4K< I )=E4KC D+l ; NEXTELSENEXT 
2220 GOTO201O 
2500 PRINTBL*; CD*; CD*; EL*; : GOSUB5000 ; PRINTCU*; CU*; CU*; : RETURN 

70 



INIT - BUDGET MANAGEMENT 1, JAN 1979 PAGE 



2600 PRINTBL*; CD*; CD*; EL*; CU*; CU*; : RETURN 

2000 GO5UB350 

3010 PRINT: PRINT-ENTER START VALUE"; :GOSUB?00; J=VALCB*;>: IFB*-"END"RETURN 

3620 PRINT: PRINT" ENTER INCREMENT"; :GOSUB700;PRINT:K=VAL(B*> 

3030 IFJ<10R(CaORJ+ ( Kl-1 ) *K>32000THEN3040ELSE305B 

3040 E=6 : GOSUB5000 : GOTO3010 

3050 PRINTTRBCS) "RENUMBERING. . . 

3060 FORI =1T0K1 : ftl'/X I >= J*SGN CfllX( I ) > : J= J+K 

3870 NEXT : GO5UB320 : RETURN 

5000 IFE=99PRINT"* END OF RUN *":END 

5010 PRINTTAB<5); : ONEGOTO5011, 5012, 5013, 5014, 5015, 5016, 5017, 5018, 5019 

5011 PRINT"* FILE NOT FOUND *": RETURN 

5012 PRINT"* INPUT DATA EXCEEDS MEMORY ALLOCATION *": RETURN 
5613 PRINT"* BRD LEVEL *": RETURN 

5014 PRINT"* BAD PRIORITY *":RETURN 

5015 PRINT"* FATAL ERROR - ABORTED *" .RETURN 

5016 PRINT"* BAD ACCOUNT NUMBER SEQUENCE *" : RETURN 

5017 PRINT"* NO ROOM TO INSERT *": RETURN 

5018 PRINT"* BRD ACCOUNT NUMBER *": RETURN 

9000 GOSUB350 : PRINT : 10=1 : IFDK=1THENDV=1 : ONERRDRGOTO9908 

9010 IFDK=1THENPRINT"FILESPEC OF OUTPUT FILE: "; :G0SUB75@ ; PRINT: OPEN" 0", DV, B*- ON 

ERR0RG0T08 
9020 I FDK=0THENDV=-1: INPUT "LOAD DPTA TAPE (RECORD), THEN PRESS ENTER"; A* 
9030 PRI NT#DV, I NT COT/lOO) : PRINT" WR I TI NG ACCOUNTS ■ : PRINTKDV, Kl 
9040 IFK1O0THENFORI=1TOK1+1:PRINT#DV, Al/iCI); X; A2*<i;>;X; A3#<D; X; R4#(D; X; fl6^(D 

:NEXT 
9050 PRINT"WRITING CHECK5":PRINTKDV,K2 
9&m IFK2O0THENFORI=1TOK2 : PRINT#DV, C1X< I); X; C2Z<I>; X; C3*a ); X; C4CI >; X; C52< I >; X; 

C6X<D:NEXT 
9070 PRINT"WRITING CASH EXPENSES" : PR I NT#D V, K3 

9080 IFK3O0THENFORI=lTOfG:PRINT#DV, ElKa>;X; E2*a>;X; E3CD; X; E4Ji< I > : NEXT 
9090 PRINT"WRITING DEPOSITS" : PRI NTflDV, K4 

9100 IFK4O0THENFORI=lTOK4;PRINT#DV,tJlK<I); X;D2*(I); X;D3<IJ:NEXT 
9110 PRINT"WRITING SAVINGS DATA" : PRI NT#DV, K5 

9120 IFK5O0THENFDRI=1TOK5 : PRINT#DV, SlXa>; X; S2*a >; X; S3C I > : NEXT 
9130 F-l : I FDK=1THENCL05E : RE TURNEL SERE TURN 
9400 PGKEI1, 12; RETURN 
9500 JJ=J: J=4:QOSUB350: J=J J; PRINT: 10=0: 11=15423: 12=32: IFDK=1THENDV=1 : ONERRORGOTO 

9980 

9510 IFDK=1THENPRINT"FILESPEC OF INPUT FILE: "; :GOSUB750:PRINTOPEN"I", DV,B*ONE 
RRORGOTO0 

9520 IFDK=0THENDV=-1:INPUT"LOAD DATA TAPE<PLAV) f THEN PRESS ENTER"; A* 

9530 INPUT#DV, D : PR INT"DATE OF DATA : -; : GOSUB950 : PRINT : PRINT"READ ING ACCOUNTS 

9540 INPUT#DV, Kl : I FK1+1>M1THEN9760 

9550 IFK1O0THENFDRI=1TOK1+1 : INPUT#DV, A1KC I ), A2*< I >, A3#<I h A4#< I), ASKCD : G0SUB94 

00: NEXT 
9560 PRINT"READING CHECKS" : I NPUTttDV, K2: IFK2>M2THEN9700 
9570 IFK2O0THENFORI=1TOK2 : INPUTWDV, C1K< I >, C2>i(D, C3*< I >, C4CI >, C5^< I >, C6XCI ) : GOS 

UB9400:NEXT 
9580 PRINT"READING CASH EXPENSES ":I NPUT#DV, K3 : 1 FK3>M3THEN9700 
9590 IFK3O0THENFORI=1TOK3 : INPUT#DV, ElYA I >, E2*( I ), E3< I >, E4m> ; GOSUB9400 ■ NEXT 
9600 PRINT-READING DEPOSITS" : INPUT#DV,K4: I FK4>M4THEN9730 
9616 IFK4O0THENFORI=1TOK4 ; INPUT#DV, D1Z<I ), D2*< I > t D3CI> : GOSUB940O : NEXT 
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9620 PRINT "READING SAVINGS DATA " : INPUT#DV, K5 : IFK5>M5THEN9700 

9630 IFK5O0THENFORI-1TOK5 : 1 NPLIT#DV, SIX< D, S2* < I ), S3< I > : GOSUB940O : NEXT 

9640 F=l: IFDK=1THENCL0SE:RETURNELSERETURN 

9700 E=2 : GOSUB5060 : STOP 

9900 I=ERR/2+l : IFI=54THENE=1 : GQSUB5000 : IFIO=1THENRESUME9010ELSERE5UME9510 

9918 PRINT :PRIMT"UNEXPECTED ERROR *"1"1N LINE"ERL"— RUN ABORTED" :END 

1BO00 DATA CHECKBOOK BALANCE, @, SAVINGS ACCOUNT, 0, PETTV CASH, 0, TOTAL INCOMES, REG 

ULAR INCOME, 1 
10010 DATA WAGE/SALARY, 2, BUSINESS INCOME, 2, SOC. SEC. BENIFIT5, 2, PENSION, 2 
10026 DATA VARIABLE INCOME, 1, BONUS, 2, INTEREST, 2, SAVINGS, 3, BONDS, 3, DIVIDENDS, 2 
10030 DATA OTHER INCOME, 2, SET-ASIDE INCOME, 0, FUTURE GOALS, 1, EMERGENCIES, 1 
10040 DATA EDUCATION, 1, RETIREMENT, 1, VACATION, 1, TOTAL EXPENSES, 0, REGULAR EXPENSES 

,1 
10050 DATA REMVMORTGAGE, 2, HOUSE MAINTENANCE, 2, UTILITIES, 2, ELECTRICITY, 3, NATURAL 

GAS, 3 
10060 DATA WATER, 3, TELEPHONE, 2, INSTALLMENT PAYMENTS, 2, INSURANCE, 2, FOOD & BEVERHG 

E, 2 
10070 DATA FURNISHINGS, 2, CLOTHING, 2, TRANSPORTATION, 2, BUS, 3, CAR, 3, RAS, 4, CAR MAINTE 

NANCE, 4 
10GS0 DATA MEDICAL, 2, RECREATION, 2, MISCELLANEOUS, 2, SEASONAL EXPENSES,!, EDUCATION, 

2, CONTRIBUTIONS, 2 
10090 DATA TAXES, 2, CHRISTMAS, 2, BIRTHDAYS, 2, TRAVEL, 2, " ", -1 
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10 ' BUDGET MANAGEMENT - TRANSACTION 1 

2B ' COPYRIGHT CO 1979 TANDY CORP. 

108 CLEflRC 2600 ) : DEF INT I -N : DEFSTRX 

110 Ml=61 : M2=50 : M3=25 : M4-20 ; M5=M4 

120 X=", " : AD*=CHR*C25) : EL*=CHR*(38) : CU*=CHR*(27) : BL*=CHR*<29) 

120 DIMAIKCMDj A2*(M1), R3#<M1), A4fKMl), flSK<Hl> 

148 DIMC1XCM2), C27i(M2), C2*<M2>, C4(M2), C5KCM2), C6*(M2) 

150 DIME1K<M3), E2*(M3), E3(M3), E4X(M3) 

160 DIMDl?i(M4>,D2*<:M4),D3<M4> 

170 DIM51KCM5), S2*(M5), S3(M5) 

190 ONERRORGOTO2B0 : DK-1 : I-IN5TR< "R", "R" ) : G0TO210 

200 DK=0:RESUME210 

216 ONERRORGOTOO 

220 CLS: PRINT: PRINTTABaOV'BUDGET MANAGEMENT - TRANSACTION 10": PRINT 

230 IFDKiei00PRINT' J ENTER TODAY'S DRTE (MJVDD/VY>"j :XK=1:GDSUB900:DT=VAL(DT*) :XY. 

=6:GOTO220 
240 PRINTTAB<15)"0) STOP- 

"TAB(15)"1> ENTER DEPOSITS 

"TAB(15)"2> ENTER CASH EXPENSES 

"TAB(15>"3> ENTER OUTSTANDING CHECKS 

"TAB (IS) "4) CANCEL CHECKS 

"TAB (15) "5) ENTER INCOME AMOUNTS 
250 PRINTTAB(15)"6) ENTER SAVINGS TRANSACTIONS 

"TAB<15)"7> TRANSFER FUNDS 

"TAB<15)"8) START NEW MONTH 

"TABUS) "9) SAVE DATA 
260 PRINT :PRINT' J ENTER YOUR CHOICE"; : GO5UB7S0 : PRINT : J=VAL<B*);IFB*=""THEN220 
270 IFJ=0THENC*="":PRINT"HAVE YOU SAVED YOUR DATA (V/N W: GOSUB3O0 : IFVN=0THEN220 

ELSEE-^99:GOSUB5500 
275 IFJC0ORJ?9THEN220ELSEIFF=0THENGOSUe9500 

280 ONJGOSUB4600, 3008, 1OO0, 2000, 6000, 5B0O, 7000, SBO, 9000 : GOTO220 
300 YN=-1 : GOSUB790 : PRINT : IFB*=" "THENBt^C* 

305 C*=LEFT*<B*, 1) ; I FC*="Y"THENYN=1:RETURNELSEIFC*="N"THENVN=0: RETURN 
310 PRINT"WRKE UP.' PLEASE ANSWER YES(Y>, OR NO<N>"; : IFF1=1THENRETURN:ELSE300 
320 FORDY=1TO1000: NEXT: RETURN 

250 CLS : PRINTTABdS); : CNJG0T0354, 353, 351, 352, 356, 355, 357, 358, 359 

251 PR INT" OUTSTANDING CHECKS ": RETURN 

352 PRINT "CANCELLED CHECKS" : RETURN 

353 PRINT "CASH EXPENSES ": RETURN 

354 PRINT"DEPGSI TS " : RETURN 

155 PRINT"SAVINGS TRANSACTIONS" : RETURN 

356 PRINT" INCOME ACCOUNTS ": RETURN 

357 PRINT"TRANSFER FUNDS": RETURN 

358 PRINT "NEW MONTH" : RETURN 

359 PRINT"DflTA I NPUT/OUTPUT ": RETURN 

360 IFJ=3THENPRINT" NO. »i 

363 PRINTTAB (IB) "DATE "TAB (22) "DESCRIPTION "1 3(42) "AMOUNT"; 

367 IFJ=20RJ=3THENPRINTTAB(52> "EXP. ACCT" : RE RN : ELSEPRINT : RETURN 

400 PRINTEL& :IFJ=3THENGQSLIB700:V=VAL(B*>:I, t="END"0RV=8THENRETURN 

405 XK=0 : PRINTBL*; STRING* (8, AD*); EL*; : GOSUBi : IFB*0" "THENIFB*="END"THENW=S: RET 

URNELSEIFDT*=" "THEN405ELSEW=VfiL(DT$) : G . . -410 
407 U=INT(DV100):D=W:PRINTBL$;STRING*(8, AD*. "? "; :GOSUB950 
410 PRINTBL*;STRING*<17,AD*);EL*j : GOSUB700 : Xi*=BS 
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415 PRINTBL*;STRING*<41,AD*);EL*; ;GOSUB700:V=VAL(B*> 

420 IFJ=20RJ=3THENPRINTBL*; STRING* (53, flDJJj EL*; : GOSUB700 : Z=VflL(B$> 

425 PRINT: RETURN 

450 LO=1:HK=K1:II=0 

460 IFLO=HXflNDNNORB5{fll?;ao:> >THENRETURN 

470 MD= INK < LO+HK V2 >: IFNN=AB5<A1X<;MD> > THEN I I=MD: RETURN 

480 IFNN>fiBS(fllK<MD> )THENL0=MD+1 : GOTQ460 : ELSEHK=MD : GOTG460 

700 PRINT"? N ; 

750 B*="":L=0:PRINTCHR*<14>; 

760 W*= INKEY* : IFWt=" "THEN760 

770 IFW*=CHR*<13)THENPRINTCHR*<15>J : L=L+1 : RETURN 

780 IFW*=CHR*<8)THENIFB*0""THENPRINTW*; :B*=LEFT*<B*,LEW<B*>-1) : GOTG760ELSE760 

790 IFW*=""THENL=L+1: PRINT" "j :GOTO760 

794 IFW*= ,tM THENPRINTSTRING*aEN<B*:>+2*L J CHR*(8:0; EL*J :GOTO?50 

796 IFW*<" "URH$>"Z"THEN760ELSEPRINTWt; :B*=B*+W*;GOTO760 

800 GOSUB350; PRINT :PRINT"HAVE VOU SBVED THIS MONTH'S DATA"; :€$="" 

810 GOSUB300:IFVN=0THENRETURN 

820 PRINT: 1=0 :INPUT"TVPE 1 TO START A NEM MONTH"; I: IFIOIRETURN 

825 PRINT'CLEARING " :W#=0D0 

330 K3=0 : K4=0 : K5=0 : FGRI=4TGK1 : A3#< I >4*# : NEXT 

848 K=0 : F0RI=1T0K2: IFC6KH I )=0THENK=K+1 : C17XfO=Cl?;< I ) : C2K<K)=C2KC I > : C3*<K>=C3*a ) 

; C4<K)=C4( I > : C5X(K>=C5*/;< I> : C6K<K)=6 
850 NEXT :K2=K: RETURN 
900 GOSUB700: IFLENCB*K>5+3*XKTHEN930ELSED1*=LEFT*(B*, 2) :D2*=MID*<B*, 4, T> :D3*=RI 

GHT*CBfc 2> : IFVfiL<Dl*XlORVflL<Dl*>>12THEN930 
905 I FVflL <D2*X1GRVAL CD2*) >31THEN930ELSElFK?i=lTHENIFVflL< D3* X0THEN930 
910 DT*=Di*+D2* : IFXtf=lTHENt>T*=DT*+D3* : RETURNEL SERE TURN 
930 DT*=" ": RETURN 

950 PRINTUSING"##^##"j 1NT<D/100>;D-100*INT<D/100); :RETURN 
1000 GOSUB350 
1010 PRINT: PRINT82*<1>; :PRINTUSING" *$#*#, ###, *##. ##"; A3* CD 

1029 GOSUB360: GOSUB400 : IFV=0THENRETURN 

1025 IFK2O0TH£NFORI=1TOK2 : IFC1K<I>=VTHENE=2 : GCSUB5500 : GOT01010ELSENEXT 

1030 NN=2 : GOSUB450 : IFII=0ORA1?;<: I I»0THENE=1 :'Q0SUB5500 : GOTQ1O10 
1040 IFK2+1>M2TH£NPRINTTRBC5>"* CHECKS FULL *":GOTO1010 

1050 K2=K2+1 : C1I«K2>=V : C2li< K2)=W : C3* <K2>=X1* : C4 CK2) -V : C5K< K2>= II : C6K<K2>0 

1060 H3#(l)=fl3#Cl>"CDBL(V):K=II 

1870 A3#<K)=R31KK>+CDBLm :K=INT<fi6?i(KV10> : IFKOOTHEN1070ELSE1010 

2800 GOSUB350 

2010 PRINT :PRINT' h ENTER CHECK NUMBER"; :G0SUB700:PRINT:NN=VfiL<B*>: IFNN=0RETURN 

2815 IFK2=0THENPRINTTflBC5)"+ NO CHECKS *":GOTO2010 

2820 FOR I=1T0K2 : IFC1KC I )=NNTHEN2030EL5ENEXT : E=3 : GOSUB5580 : GOTO2810 

2030 IFC6XaX>0THENPRINT"* CHECK ALREADY CANCELLED *":GOTO2010 

2040 PRINTTAB<10>;C2Xa^TAB(19>j C3*CIJi TAB<41>> :PRINTUSING "**»#*, #W M #### 

#"; C4CI); RBS< A1K(C5K<I ) ) ) 
2050 C6K( I >=INKDT/100> : GOTO201O 
3000 GOSUB350:GOSUB3100: PRINT "ENTER 'PETTY CASH' DEPOSIT CO IF NONE)"; :GOSUB700: 

PRINT : IFB*="END"THENRETURNELSEA3#<;3;i=A31K3>+CDBL< ABSCVALCB*) ) ) 
301O GO5UB3100 : G0SUB36B : GOSUB40O : IFW=0RETURN 
302O HN=Z : G0SUB458 : IF I I=0ORfilK(I I )>0THENE=1 : GOSUB5500 : GOT0301O 
3030 IFO+l>M3THENPRINTTAB<5>"+ CASH EXPENSES FULL *":GOTQ3010 
3040 K3=K3+1 : El?i<K3>=W; E2*CK3)=X1*;E3(K3)=V : E4Z<K3)=I I : K=I I : A3#0)=A3#(3>-CDBL<Y 
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3050 A3#(K)=fl3#<K)+CDEL<V>:K=INT<;A6?i<K>/10) : IFKO0THEN305OELSE3010 

3100 PRINTCHR*(13); TAB<5>; A2*C3); ;PRINTU5ING" **#*#, ###,##». ##"; A3# a) RETURN 

4000 GC5UB350 

4010 PRINT: PRINTA2*<1); :PRINTUSING" $**##,###, ###. #r; A3#<1) 

4020 GOSUB360 : GOSUB400 : IFW=0THENRETURN 

4030 IFK4+1>M4THENPRINTTAB^5)"* DEPOSITS FULL *":GOTO4018 

4046 K4=K4+l:DlKCK4J=W:D2*CK4>=Xl*;D3i:K4>=ABS<V):A3*a)=A3#<l)+CDBLt:flBS<V)>:GGT0 
4010 

5080 GOSUB350 

5010 PRINT: PR INTA2*C2>; :PRINTUSING" **###, ###, ##». ##"; A34K2) 

5020 G0SUB360 : GOSUB400 : IFW=0RETURN 

5030 IFK5+1>M5THENPRINTTAB<5)"* SAVINGS DATA FULL *":GOTO5010 

5040 K5=K5+1:S1?:(K5)=U:S2$(K5)=X1*:S3CK5)=V:A3#<2;=A3#<2>+CDBL<V):GOTO5010 

5500 IFE=99THENPRINT"* END OF RUN *":EHD 

5510 PRINTTAB<5>; : ONEG0T05511, 5512, 5513, 5514, 5515* 5516, 5517, 5518, 5519 

5511 PRINT "* BAD EXPENSE ACCT *": RETURN 

5512 PRINT"* CHECK EXISTS *" : RETURN 

5513 PRINT"* CHECK NOT FOUND *" : RETURN 

5514 PRINT"* FILE NOT FOUND *": RETURN 

5515 PRINT"* INPUT DATA EXCEEDS MEMORY ALLOCATION *": RETURN 

6808 G0SUB350 : PRINT : PRINTTRB<48 > " AMOUNT " : FORI=4TOKl : L=I NT ( A6^a ) -10* I NK A6X ( I VI 
0>> 

6805 IFA2*a>=" TOTAL EXPENSES "THENPR I NTTABC 5)"* DONE *" :G0SUB328: RETURN 

6B10 PRINTUSING"##*## X"+5TRING*<30, ■ ">+"E"; ABS^AlXCD); STRING*(L*2, " 1J HA2*<I) 

+*' "+STRINGt<32, ". "); 
6028 IFA1K<I»0THENPRINT:NEXT 

6830 PRINTTAB<40); :GOSUB700: PRINT: IFB*="END"THENRETURNELSEV=ABS<VAL(B*;>) IFV=0TH 

ENNEXTELSEK=I 
6040 A3#(K)=R3#CK>+CDBL<V) :K=INTCA6?i';K)/'10) : IFKO0THEN6048ELSENEXT 
7000 GOSUB350 

7010 PRIN1 : PRINT" TO ACCOUNT NUMBER"; :GOSUB780:V=VAL<B*) : IFB*= ,J END "RETURN 
7020 NN=V : GOSUB450 : IF I I=0THENPRINT : E=l : GOSUB55O0 : GOTO7016ELSEGOSUB7100 
7038 I =11: PRINT "FROM ACCOUNT NUMBER"; :GOSUB700:V=VAL<B*>: IFB*="END"THENRETURNELS 

EIFV=BTHENPR INT ; G0T07858 
7040 NN=V : GOSUB450 : IFI I=0THENPRINT ; E=l : GOSUB5580 : GOTO7010ELSEGOSUB7108 
7050 PRINT" AMOUNT"; : GOSUB7B0; PRINT : IFB$= "END" THENRETURNELSEW*=CDBLC 

VAL(B*)) : IFW#=0D0TH£N7010ELSEK=I 
7068 A3#<K)=A3#CKHW#:K=INT>;A6KCK>/10) : IFKO8THEN7068ELSEIFV=0THEN7010ELSEK=II 
7030 A3#<K>=A3tt<K>-W#:K=INT(R6^(KV10) :IFKO8THEN7030ELSE7010 
7100 PRINTBLt;STRING*<28,AD*)iEL*;A2$CII);TAB<50); ;PRINTUSING"**M#, ### ##"j Rt#( 

ID:RETURN 

9000 GOSUB350 : PRINT : 10=1 : IFDK=1THENDV=1 : ONERRORGOTO9900 

9010 IFDK=1THENPR1NT"FILESPEC OF OUTPUT FILE: "; ;GOSUB750: PRINT OPEN "0", DV, B*- ON 

ERRORGOTG0 
9020 IFDK=8THENDV=-1:INPUT"L0AD DATA TAPE (RECORD), THEN PRESS ENTER", A* 
9938 PRINTttDV, INT CDT/100): PRINTER ITING ACCOUNTS" ; PR I NTttD V, Kl 
9040 IFK1O0THENFORI=1TOK1+1 : PRINT#DV, Al?i( I ); X; A2*< I ); X; B31KI >; X; A4#< I>; X; A6£< I) 

:NEXT 
9050 PRINT"WRITING CHECKS" : PRINT#DV, K2 
9066 IFK2O0THENFORI=1TDK2:PRINT#DV, C1KCD; X; C2m>; X; C3$(D; X; C4(I); X; C5Ji<I)j X; 

C6K(D:NEXT 
9870 PRINT"HRITING CASH EXPENSES" : PR I NT#DV, K3 
9888 IFK3O8THENF0RI=lT0K3:PRINT#DV, El?i( D; X? E2*< I); X; E3< I>; X; E4K< I > : NEXT 
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9990 PRINT"WRITING DEPOSITS" : PR I NT#DV, K4 

9100 IFK4O0THENFORI=1TOK4 : PRINTSDV, D1X< I >; X; D2*( I ); X; D3< I ) : NEXT 

9110 PRINT"WRITING SAVINGS DATA":PR1NT*DV, K5 

9120 IFK5O0THENFORI=1TOK5 : PRINT#DV, S1XC I >; X; S2*< I )j X; 530): NEXT 

9130 F=l ; IFDK=1THENCL0SE : RETURNELSERETURN 

9400 POKEU, 12: RETURN 

95B0 JJ=J : J=9 : GOSUB350 : J=JJ : PRINT : 10=0: 11=15423 : 12=32 : IFDK=1THENDV=1 - ONERRORGOTO 

9900 
9510 IFDI^lTHENPRINr'FILESPEC OF INPUT FILE: "■> : GO5UE750: PRINT OPEN" I ", DV,B$- ONE 

RRORGOTOO 
9520 IFDK=0THENDV=-1: INPUT "LOAD DATA TAPE(PLAV), THEN PRESS ENTER"; fl* 
9530 INPUTMW, D : PRINT"ORTE OF DATA : "j : GOSUB950 : PRINT : PRINP'READING ACCOUNTS 
9540 INPUTflDV, Kl : IFK1+1>M1THEN9700 
9550 IFKK>0THENFORI=1TOK1+1: INPUTttDV, R1V.< I >, R2$< 1 >, R3#( I >, R4#a ), R6KC I > : G0SUB94 

00: NEXT 
9560 FRINT"REflDING CHECKS" : INPUT#DV, K2 : IFK2>M2THEN9700 
957B IFK2O0THENFORI=lTOK2:INPUT#DV,CiKa;>,C2;za>, C3*(D, W<I>i CSM), D6Z<D:GQS 

UB94B0:NEXT 
9580 PRINT" READING CASH EXPENSES" : INPUT#DV, K3: 1 FK3>M3THEN970B 
9590 1FK3O0THENFORI=1TOK3: INPUT#DV, E1XCI), E2*(I), E3(I), E4KCI) ■ GOSUB9400 ■ NEXT 
S600 PRINT"READING DEPOSITS"; iNPUTttDV, K4: IFK4>M4THEN970S 
9616 IFK4O0THENFORI=1TOK4: INPUTKDV, D1K<I>, DSMDj D3< I > : GOSUB940B : NEXT 
9620 PRINT J, READIfJQ SAVINGS DATA" : INPUTttDV, K5: IFK5>M5THEN9700 
3636 IFK5O0THENFORI=1TGK5 : INPUTtDV, S1XC I h S2SCI h SKA): GOSUB9400 ■ NEXT 
9640 F=l: IFPK=1THENCLDSE: RETURNELSERETURN 
9700 E=5 : GOSUB5500 : STOP 

9S0O I=ERR/2+l : IFI=54THENE=4 : GOSUB5500 : IFIO=1THENRESUME9010ELSERESUME9510 
9910 PRINT: PR INT "UNEXPECTED ERROR #"I"IN LINE J, ERL"~ RUN ABORTED" r END 
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10 ' BUDGET MANAGEMENT - EDIT 1. 

20 ' COPYRIGHT <C) 1979 TANDY CORP. 

100 CLEAR (3600) :DEF INT I -NiDEFSTRX 

110 Ml=61 : M2=50: M3=25 : M4=20 : M5=f14 

120 X=", " :AD*=CHR*C25) :EL*=CHR*C30> :CU*=CHR*C27> :BL*=CHR*<29> 

130 DIMfll/C<Ml), A2*Cni)» A3*KM1), A4#<M1), A6tf<Ml> 

146 DinClKCM2>. 02X^2), C3$«;M2), C4<M2), C5?!<[t12>, C6X<M2> 

150 DME1Z(H3), E2KM3:), E3CM3J, E4KCM3) 

168 DIMDlK<M4> J D2*CM4) J D3';ri4) 

170 DIf1Sl^<M5>, S2*Cf15)-53(M5> 

190 ONERRORGOTO200 : DK=1 : I=INSTR< "A", "A" ) : GQTO210 

200 DK=0:RESUME21O 

21S ONERRORGOTO0 

220 CLS; PRINT :PRINTTAB<10) "BUDGET MANAGEMENT - EDIT 1 0": PRINT 

220 I FDK10100PRINT" ENTER TODAY 'S DATE (MM/DD/VV) "; : XK=1 : GOSUB9O0 : DT=VAL CDT* > ; XK 

=0:GOTO220 
240 PRINTTAB(15)"0> STOP 

"TABCISV'D EDIT ACCOUNTS 

"TAB*:i5)"2> EDIT OUTSTANDING CHECKS 

"TABC15V3) EDIT CANCELLED CHECKS 

"TABQ5>"4) EDIT CASH EXPENSES 

"TABC15)"5> EDIT DEPOSITS 

"TAB<15)"6> EDIT SAVINGS DATA 

"TAB<15>"7) SAVE DATA 
269 PR INT: PRINT "ENTER YOUR CHOICE"; :GOSUB7O0: PRINT: J=VAL(B*> 
276 IFJ=0THENPRINT"HflVE YOU SAVED YOUR DATA (Y/N)"; :GOSUB300: IFYN=0THEN220ELSEE= 

39:GOSUB5500 
280 IFJ<1QRJ>7THEN220ELSEIFF=STHENGG5UB950<B 
235 IFJ=7THENGOSUB9000ELSEGGSUB2000 
290 GOTO220 

300 YN--1 : GQSUB700 : PR INT : I FB*= " " THEN6*=C* 

105 C*=LEFT$(E$, 1) :IFC*="Y"THENVN=1:RETURNELSEIFC*="N"THENYN=0: RETURN 
310 PRINT'HAKE UP! PLEASE ANSHER YES<Y>, OR NO<N>"; : IFF1=1THENRETURN : ELSE300 
320 FORDY=1TO1900: NEXT: RETURN 

350 CL£:PRINTTABaS); ;0NJGQTQ35l, 352. 353, 354, 355, 356, 357 

351 PRINT" ACCOUNT"; :GOTO360 

352 PRINT" OUTSTANDING CHECKS"; :G0T0360 

353 PRINT"CANCELLED CHECKS"; :GOTO360 

354 PRINT"CASH EXPENSES"; :G0T0360 

355 PRINT "DEPOSITS"; :GGTO360 

356 PRINT "SAVINGS"; :G0TO360 

357 PRINT "DATA I NPUTAJUTPUT" : RETURN 
360 PRINT" EDITING": RETURN 

400 I=KK 

416 H3#(D=A3#a)+A#:A4*a)=A4#<D+B#: I=INT(A6K<IV10) :IFIO@THEN410ELSERETURN 
450 LO=1:HK=K:II=0 

460 IFLO=HKANDNNOABS<A1K(LO) )THENRETURN 

47S MD=INTC<:L0+H^>/2) : IFNN=AB5(A1X(MD) >THENI I=MD : RETURN 

430 IFNN>RBS< AIZ(MD) )THENLO=MD+l : G0T0460 : ELSEHK=MD : GOTO460 

500 E=0 : FORI =1T0K2 : IFR=C1^ ( I > THENE=4 : GOSUB180O : RETURN 

505 NEXT: RETURN 

560 D2=INT(D/100? : D3=D-100*£>2 : RETURN 

600 G0SUB65B : E=0 ; IFB$=" "THENE=1 : RETURNELSERETURN 
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650 G0SUB8Q6 

700 PRINT"? "J — ' 

750 B*="":PRINTCHR*(14)i 

760 H*=INKEV*:IFN*=""THEN760 

779 IFW$=CHR$(13)THENPRINTCHR*(15^ : RETURN 

789 IFW*=CHR*(8)THENIFB*0""THENPRIN™r; :B*=LEFT$CB*. LEN(e$)-U : GOTQ76BELSE760 

794 IFW*= ,M, THENPRINT5TRING*«;LEN<B*>, CHR*CS)i;EL^ :GOTO750 

796 1FW$<" "ORW$>"Z"THEN760ELSEPfiINTW*; :B*=B*+W$:GGTD760 

300 PRINTBLfrSTRING*(P,flD*:i;EL*; .RETURN 

906 GOSUB700 : IFL£N<B*>O5+3*!<;;THEN930ELSED1*=LEFT*<B*. 2) : D2*=MID*<B*. 4. 2) ; D3*=RI 

GHT*(B*. 2) : IFVAL<Dl*XlORVfiL<Dl*)>12THEN930 
905 IFVAL <D2*X10RVAL <{>2*»31THEN930EL5E IFX?i=lTHENI FVflL <f>3*) <0THEN930 
910 DT*=D1*+D2$: IFXK=1THENDT*=DT*+D3* : RETURNELSERETURN 
930 DT*=" ".RETURN 

950 PRINTUSING"##/## , MNT<D/ , 100)jD-100+INT(D/100>j :RETURN 
1000 PRINT" >"jCHR*<14)j 
1002 IFDK=1CMD"T' 1 

1805 B*=INKEV*: IFR*= ,, "THEN1005ELSE1FDK=1CMD"R" 
1810 IFA*="X "THENE0D=1 : 0NERR0RG0TG8 ; RETURN 
1020 IFfl$=CHR*(10HH£NIC=l:PRINTCHR*(92) : RETURN 
1030 IFR*=CHR$<91)7HENIC=-1 ; PRINTA*: RETURN 
1040 IFfl*O"E"THEN1002 

1050 ONERRGRGOTO1900 ; PRINTfl* : C$= "Z"+STR ING*<23. " ")+"X" 
1060 ONJGOTG1100, 1200. 1200. 1400. 1500. 1600 
1100 P=1:GDSUB300:PRINTU5ING"##M#"; ABSCAIKCKK)); 
1110 P=7 : GOSUB600 : IFE=0THENA2*<KIO=B* 
1112 B*=STRING$(2*L. " ">+R2$<KfO 
1115 GOSUB800:PRINTU5INGC$;B*; 
1120 P=33 : GOSUB6B0 : IFEO0THEM1130 

1125 Z#=flBS<CDBL<VflL(8*?); : fl*=Z#-A3* ( KIO :E«=0[>0: GOSUB40e: A3#(KK)=Z# 
1130 GOSUB300:PRINTUSING H #tt###. ##"jft3#(KK); 
1135 P=43:GOSUB6B0:IFEO0THEN1145 

1140 2#=flBS(CDBL<VflLCB*) ) ) : P4=BD0 : B#=Z#-A4*<:KK> ; GQSUB400 : m#(KK)=Z# 
1145 GOSUB800:PRINTUSING"##tt#tt. U u , A4#(KK) :JC=1; RETURN 

1200 P=0;GOSUB600: IFE=0THENA=ABS<VAL(B*)) :GQ5UB500: IFEO0THEN1200ELSEC1X<KK)=R 
1205 GO5UB800:PRINTUSING"######"jC1X<KK^ : tFJ=2THENP=10ELSEP=B 
1210 D=C2X(KK) :GOSUB1700:IFB*="*'THEN1215ELSEIFDT*=" "THEN1210EL£EC2K(KK>=D 
1215 GOSU01750 : IFJ=2THEN1230 

1220 P=14 : D=C6K<KK> : GO5UB1700: IFB*=" "THEN1225ELSEIFDT*=" l THEN1220ELSEC6!i':KK>=D 
1225 GOSUB1750 

1230 P=21 : GOSUB600 : IFE=0THENC3*<KK>=B* 
1235 GOSUBB00 : PRINTUSINGC*; C3*<KK); 
1240 P=42 : GOSUB608 ; 2=t4<KIO . I FE=0THENZ=VflL < B* ) 
1245 GGSUBB00: PR INTUSING "#*#*##. W'iZ, 

1250 Pt54 : GOSUB600: NN=flBS<ftli;<C5K(KK) ) > : IF£=0THENNN=ABS<VAUB*> > 
1255 K=K1:GOSUB450: IFII=0ORfllK<II»8THENE=5:GOSUBl800:GOTO1250 
1260 GOSUB800:PRI MUSING" ####»#"; NN 
1270 B#«0D0:fl#=-C[>BL<C4<KK)):K=KK:KK=C5?:<:K) :GOSUB400 
1275 fl#=CDBL<2> :KK=I I : GGSUB400 : KK=K 

1280 fl3#<l)=fl3#(l)+CDBL£:C4(KK)>-CDBL<Z):C4<KK)=Z:C5K(KK)=n:IC=l: RETURN 
1400 P=10 : b*El'/.(K)0 : GOSUB17B0 : IFB*=" "THEN1405ELSEIFDT*=" "THEN1400ELSEEl/i(KK)=D 
1405 GOSUB1750 
1410 P=21:GDSUB600: IFE=0THENE2*<KK>=6$ 
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1415 GQSUB800:PRINTUSINGC*; E2*<KfO; 

1426 P=42:GOSUB600:Z=E3(KK) :IFE=0THEN2=VBL<B*> 

1425 GOSUB80@:PRINTUSING "######. #*"iZ; 

1430 P=54;GOSUB600;NN=flBS(Bl?i<E4K«:KK)>) : IFE=0THENNN=ABS<VAL<B*>> 

1435 K=K1 ; GQSUB450; IF1 I=0Gf?fll^< 1 1 »0THENE=5 : GOSU81300 : G0T01439 

1440 GOSUB80B;PRINTUSING"###*#r; NN 

1445 B#=0D0 : A#=-CDBL<E3(KK) ) : K=KK;KK=E4K<K) : GOSUB40O : A2#a>=A3#a)-A# 

1450 A#=CDBL(Z):KK-II:GOSUB400:KK=K;A3#(3)=A3#C3)-R# 

1455 E3(KK>Z : E4H<KIO=I I : IC=1 : RETURN 

1500 P=10:D=D1^<KK) :GOSUB1700: IFB*= H "THEN1505ELSEIFDTt=" "THENISSSELSEDIZCKK^D 

1505 GGSUB1750 

1510 P=21;GOSUB600: IFE=0THEND2*<KK>=B* 

1515 GOSUB800;PRINTUSINGC*J D2$<KK>; 

1520 P=42: GOSUB600; Z=D3<KIO : IFE=0THENZ=ABS<VfiUB* > ) 

1525 GOSUB308:PRINTUSING" ####*#, ## M ;Z 

1530 A3# Cl)=fi3#< D-CDBL <D3CKK >>+CDBL;Z>:D3<KK)=Z. I C=l: RETURN 

1600 P=10 : D=S±'/,<.KK> : GOSUB1700 : IFB*=" "THEN1S05ELSEIFDT*=" "THEN16S0EL£E£1K(KK)=D 

1605 GOSUB1750 

1610 P=21:GOSUB600; 1FE=0THENS2*<KIO=B* 

1615 GOSUBS00 ; PRINTUSINGC& S2*<KK>; 

1620 P=42 : GOSUB600 ; Z=S3<KK) : IFE=0TAENZ=VRL<B*> 

1625 GO5UB800: PR INTUSING "*#*###. ##-"jZ 

1630 A3* <2^A3#< 2>-CDBL <S3<KIO HCDBL (Z > : 53O0O-Z : IC=i : RETURN 

1700 GOSUBS00 : GO5UB900 : IFB*=" "ORDT$= - "THENRETURNELSED=ABS C VfiL < DT*> ) ■ RETURN 

1750 GO5UB800:GOSUB950: RETURN 

1800 PRINTCAR$a3>;BLfc : GOSUB5500 : PRINTCU& CU$; : RETURN 

1900 E=6 : GOSUB1800 : RE5UMENEXT 

2000 GOSUB350:GQSUB3000:PRINTT* 

2360 GOSUB4500 : IFE0D=1PR INT : E=3 : GOSUB5500 : G0SUB32B : RETURN 

2380 GCSUB6000 : GOSUB1000 

2390 IFE0D=1RETURNELSE236B 

3000 EOD=0 ; I C=l : KK=0 : 1FJO1THEN3060 

3040 T*=" NO. NAME CURRENT BUDGET 

3050 F*=" ###*# '/. % ###*#. m #####.##": RETURN 

3860 T*=" DATE DESCRIPTION AMOUNT" :Ft^"M/M y. 

Y. ######. U- 
3070 IFJ>1ANDX4TMENT*=" NO. "+T$:F$="##Mtt# "+F*ELSET*=STRING*a0, " ") 

+T*:F*=STRING*<10, " ">+F* 
3380 IFJ>1ANDJ<5THENT*=T*+" EXP, flCCT":F*=F*+" ######" 
3090 IFJ=3THENT*=" NO. WRTN CAN DESCRIPTION AMOUNT EXP ACCT 

*:f*-"###### m/m m/m y. zmmm. ## »#####" .-returhe 

LSERETURN 

4500 K=KK+IC: ONJGOTO4510, 4520, 4538, 4540, 4550, 4560 

4510 IFK1=0THEN4600ELSEI FIOK1THENRETURN 

4515 IFKCLORKK=0THENKK=1 : RETURNEL5EKK=K : RETURN 

4520 IFK2=0THEN4600ELSEI FOK2THENRETURN 

4522 IFKaTHENK=l 

4524 IFIC=lTHENFORI=KTOK2 : IFC6K< I >=STHENKK=I : RETURNEL5ENEXT ■ GOT04526 

4525 I FI C=-1THENF0RI -KT01STEP-1 : IFC6K< I >=0THENKK= I ; RETURNELSENEXT 

4526 IFKK=0THEN4600ELSERETURN 

4538 IF*C2=0THEN4600ELSEI FK>K2THENRETURN 

4532 IFK<1THENK=1 

4534 IFI C^ITHENFOR I=KT0K2 : IFCSKC I >O0THENKK=I ; RETURNELSENEXT : G0T04536 
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4525 IFIC=-1THENF0R1=KTD1STEP-1 : :?£&.(. DO0THENKK-I : RETURNELSENEXT 

4526 IFKK=0THEN4608ELSERETURN 

4540 IFK3=0THEN4S00ELSEIFK:>K2THENRETURNELSE4515 
455& IFK4=8THEN4600ELSEIFIOK4THENRETURNEL5E45l5 
4560 IFK5=0THEN4600EL$£IFK>K5THENRETURNELSE4515 
4600 E0D=1: RETURN 
5500 IFE-93PRINT"* END OF RUN *":END 

5510 PRINTTflB<5>j : 0NEGOT05511, 5512, 5512, 5514, 5515, 5516, 5517 

5511 PRINT"* FILE NOT FOUND *": RETURN 

5512 PRINT"* INPUT DATA EXCEEDS MEMGRV ALLOCATION +" : RETURN 
5512 PRINT"* NO DATA *":RETL,N 

5514 PRINT"* CHECK EXISTS *V RETURN 

5515 PRINT"* BAD EXPENSE ACCOUNT *" : RETURN 

5516 PRINT"* VALUE ERROR *"; RETURN 

6060 ONJGOTOS010J 6001, 6601, 6002, 6004, 6005 

6001 D=C2Z<KK> 

6002 I FJ=3THENGOSUB560 : D V=D2 : VN=D2 : D=C6?XKK) : GCTO6006ELSE6006 

6003 D=Eir«KJO ; GOTO6006 

6004 D=D1K CKK ) ; GOTO6006 

6005 D=SlZCKIO 

erne oosueseo : oNJGOToeoie, 6020, 6020, 6040, em%> 6060 

6010 L=A6X<KK>-10*INT(A6Z<KKV10>:B*=£TRING*<2*L, " "HA2$-:KK) 

6015 PRINTUSINGF*jA6S(A1?;<KK.>>;B*, A3#(KK^ A4#<KK), :RETURN 

6020 PRINTUSINGF*; C1XCKK)jD2; D3,C3*<KK>j C4<KK>jABS<A1?:<X5K<KK>:Dj : RETURN 

6030 PRINTUSINGFfc CttJOOO; DVj VNjD2; D3jC2*<KK>jC4':KK}jfl&S<AmC5;\XKK>>>j RETURN 

6040 PRINTUSINGF*jD2i D2; E2*<KK);E3(KK>J ABS<AmE4tf<KK>>>j .RETURN 

6O50 PRINTUSINGFJj 02; D2j D2*(KK)j D2<KK>j RETURN 

6060 PRlNTUSINQF*j&2jD3;S2*CKK>iS3<KK>J :R£TURN 

9000 G0SUB35G : PRI NT : 10=1 : I FDK=1THENDV^1 : ONERRGRGGTO9900 

9010 IFDK=1THENPRINT"FILESPEC OF OUTPUT FILE: "; :G05UB758: PRINT: OPEN" 0", DV WON 

ERR0RGOTG8 
9020 IFDK=0THENDV=-1: INPUT "LOAD DATA TAPE-RECORD), THEN PRESS ENTER'S M 
3&3B PRINT#DV,INT<DT/100); PRINT-WRITING ACCOUNTS" :PRINTttDV, Kl 
9040 IFK1O0THENFORI=1TOK1+1 : PRINT#DV, RlZi I >j X; R2*C lh Xi A3#a >j X; A4#( I ); X; A6X< I > 

:NEXT 

9050 PRINT-'WRITING CHECKS' 1 : PRINTED V, K2 

9860 I FK2OOTHENF0RI=1TOK2: PRINTED V, ClKa>;X; C2*a>j X;C3*<I); X;C4<D; X; C5m)jXj 
C6^D: NEXT 

9070 PRINT"WRITING CASH EXPENSES" : PR I NT#DV,K3 

9080 IFK3OSTHENF0RI=lTCK2 : PRINTKDV, ElKC D; Xj E2*< I >i Xj E3CI>; X; E4K< I ) : NEXT 
9090 PRINT"WRITING DEPOSITS": PR I NT#DV,K4 

910S IFK4O0THENFQRI =1T0K4 : PRINT#DV, Dl^C I >; Xj D2*<Dj Xj D2<iy NEXT 
9110 PRINT"WRITING SAVINGS DATA": PRINTED V, K5 

9128 IFK5O0THENFORI=1TOK5 : PRINTKDV, SlKC Dj Xj S2*< I ) j Xj S2< 1 1 ■ NEXT 
9130 F-l : IFDK=1THENCL0SE : RETURNELSERETURN 
3486 P0KEI1, 12: RETURN 

9500 JJ=J : J=? : GOSUB250 : J=JJ: PRINT : 10=8; 11=15422 : 12=32 : IFDK=1THENDV=1 ■ ONERRQRGGTO 
9900 

9510 IFDKMTHEHPRINT"FILESPEC OF INPUT FILE: "j : GOSUB750- PRINT OPEN" I",DV, Bt- ONE 
RRORGOTO0 

9520 IFDK=0THENDV=-1:INPUT"LOAD DATA TAPECPLAV), THEN PRESS ENTER" J At 

9530 INPUT#DV,D:PRINT"DATE OF DATA: "j GOSUB350:PRINT:PRINT"£EADING ACCOUNT^ 

9540 INPUT#DV.. Kl: IFK1+1>M1THEN9700 
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9550 IFK1O0THENFORI=1TOK1+1 : INPUT#DV, A1K< I ), A2*< I ), A3#CI ), A4#C I ), ft£'/.(.l> : G05UB94 

B0: NEXT 
9560 PRINP'REfiDING CHECKS" : INPUT*DV, K2 : IFK2>M2THEN9700 
9576 IFK2O0THENFORI=1TOK2 : INPUT#DV, Zl?.( I ), C2KC ] ), C3*a ), C4C I ), C5K<I), ZSYA I > : GOS 

UB940O:NEXT 
9580 PR1NFREHDING CBSH EXPENSES" : I NPUT#DV, K3: IFK3>M3THEN9700 
9590 IFK3O0TH£NFORI=1TOK3: INPUTttDV, ElKd), E2*CD, E3a),E4K<I>:GOSUB9400:NEXT 
9600 PRINT"REfiDING DEPOSITS" : I NPUT#DV, K4: 1 FK4>M4THEN9700 
9610 IFK4O0TKENFOR I =1T0K4 : I NPUT#&V, D1K CI ) ■* D2t U ) , D3 (. I > : G0SUB946B : NEXT 
9620 PRINT"RERDING SAVINGS DRTA":INPUT#DV,KS:IFK5>M5THEN9700 
9638 IFK5O0THENFORI=1TOK5 : INPUT#DV, S1KC I ), S2f < I >, S3<I ) : GO5UB9400 : NEXT 
9640 F=l : IFDK=1THENCL0SE : RETURNELSERETURN 
9700 E=2:GOSU65500;£TOP 

9900 I=ERR/2+l : IFI=54THENE=1 : GOSUB550O : IFIO=1THENRESUME9010ELSERESUME9510 
9919 PRINT :PRINT"UNEXPECTED ERROR n"IN LINPERL"— RUN ABORTED" :END 
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10 " BUDGET MANAGEMENT - REPORT 1 

29 ' COPYRIGHT <C> 1973 JflNDV CORP 

100 CLEAR(I608>;DEFINTI-N 

110 Ml=£l : M2=50 : M3=25 ; M4=20 : M5=M4 

120 AD*=CHR$<25) :EL*=CHRf (3B> : CU*=CHR$C27) :BL*=CHR*<:23) 

130 DIMAIK(MI), flW(Ml), A3#(M1), A4#CM1>, flSKCHl) 

140 DIMC1Z<M2>, C2Z(M2), C3*<M2>, C4CM2), C5ZCM2), C6K<M2> 

150 DIME1K<M3>, E2*CN3) J E3<M3), E4KCM3J 

160 DIMD1KCM4), D2*(M4) J D3(M4) 

170 DIMS1XCM5), S2*<M5), S3CM5) 

130 ONERRORGOTO200: DK=1; I=INSTR< "A", "A" ) G0T021S 

200 DK=0:RESUME210 

210 ONERRORGOTO0 

220 CLS: PRINT : PR I NTT ABC 10V BUDGET MANAGEMENT - REPORT 1 0" PRINT 

230 IFDK10106PRINT "ENTER TODAV'S DATE (lifcTO/WJ-j ; X2=i : GOSUB300 : DT^VAL<DT*> : XX 

240 PRINTTABC15>"0) STOP 

u TAB(i5ri) READ- IN MORE DATA 

M TABU5>"2> REPORT 
260 PRINT :J»3:INPUT"£NTER VOUR CHOICE"; J 
270 IFJ=0THENE=99:GOSUB5000 

275 IF<J-1)*<J-2>O0THEN220ELSEIFF=0ANDJ=2GOSU69500 

280 QNJGOSUB9500,2000;GOTO220 

238 C*=LEFT*CC*+" "+STRING*<30, ". »), 30): RETURN 

300 VN=-1 : INPUTB* : IFB*=" "THENB*=C* 

305 O^LEFWB*, 1> : IFCf="V"THENVN=l:RETURNELSEIFC^"N"THENVM=0- RETURN 

52 ^J!!!"?** UP! PLEHSE flNSWER VESWj * N0(H)Hj :IFF1=1THENRETURN;ELSE300 
320 FORDV*1TO1000: NEXT: RETURN 

400 CLS:PRINTTAB<18); : ON JGOTO401, 402 

401 PRINT-DATA INPUT"; RETURN 

402 PRINT"BUDG£T REPORTER": RETURN 
450 LO=1:HX=K:II*0 

468 IFLO=HXAND NNO AGS (AIK(LO)) RETURN 

479 MD=INT< CL0+HXV2) : IFNN=ABS<A1S<MD) > I I=MD RETURN 

480 IFNN>ABSCA1K<MD) >THENL0=MD+1 : GOTO460 : ELSEHK=MD-1 ■ G0T0469 
500 D1=INT<D/1E4) 

510 D2*INT< <D-D1*1E4V100) : D3*D-1E4*D1-100*D2- RETURN 
550 D1*0:GOTO510 
900 INPUTB* 

902 IFLEN<B*K>5 + 3*mHEN930Ei.SEDl*=LEFTtCB*, 2) :D2*=MID*<B*. 4, 2) :D3*-RIGHT*(B*, 2 
>:IFVALCDl*)<iORVAt_<Di*)>12THEN930 Kium»«»,* 

305 IFVAL<D2*X1ORVAL(D2*)>31THEN330ELSEIFJ^=1THENIFVAL<D3*K0THEN930 
310 DT*=D1*+D2* : IFXZ=1THENDT*=DT*+D3$ : RETURNELSERETURN 
930 DT*=" ": RETURN 

950 PRINTUSING "##/##": INKD/1S0) j D-100*INKD/100) j RETURN 

960 ^JE^SIS^ 1 *" IMT «T^lE4)i INTC<DT-1E4*INT(DT/1E4»/-100^DT-100*INT(OT 
/ifow); . RETURN 

1008 At=INKEV*:IFA*0"e j, RETURN 

1010 AB=1: PRINT :PRINTTAB(5>"* ABORTED *":FRINT: IFIQ=2LPRINT"*** ABORTED ***" 

1020 IFIO=1THENGOSUB1500: RETURNELSERETURN HBUKfED *** 

1500 IFDK=1CMD"T" 

1510 PRINTS980, "PRESS ENTER TO CONTINUE"; ■ INPUTAf 

1528 IFDK=1THENCMD "R" : RETURNELSERETURN 
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2800 GOSUB400: PRINT ;PRINTTHB (5) "REPORT WILL GO TO 

"TABUS) "0) RETURN TO MENU 

"TRB<15)*1) VIDEO DISPLRV 

"TABQ5)"2> LINE PRINTER 
2O20 PRINT:PRINT"ENTER VOUR CHOICE"; :INPUTB*:IO=VAL(B$) :IFIO=0ORB*="END"THENRETU 

RN 
2025 IF<IO-1>*(IG-2K>0THEN2060 

2030 IFI0=2PRINT:INPUT"RERDV LINE PRINTER, THEN PRESS ENTER"; A* 
2040 GOSUB4S0: PRINT :PRINTTAB<5)"TVPE OF REPORT IS 

"TAB<15)"0) RETURN TO MENU 

"TAB (15) "1) ACCOUNTS 

"TAB<15)"2) OUTSTANDING CHECKS 

"TAB<15)"3) CANCELLED CHECKS 
2050 PP=0:PRINTTAB(15)"4) CASH EXPENSES 

M TAB<15) "5) DEPOSITS 

"TABUS) "6) SAVINGS 
2680 PRINT: PR INT"ENTER VOUR CHOICE"; : INPUTB*:7V=VAL(B*) : IFTV=0ORB*="END"THENRETU 

RN 
2085 1FTV<1ORTV>6THEN2040 

2890 GOSU6400: PRINT :PRINTTAB( 5) "SEARCHING FOR 
2100 PRINTTAB(lb)'0) RETURN TO MENU 

"TABU5)"D CANCELLED DATE 

"TABUS ) "2) CHECK NUMBER 

"TABUS) "3) EXPENSES ACCOUNT 

"TAB (15) "4) DATE ENTERED 
2110 PRINTTAB(15)"5) DESCRIPTION 

"TABUS) "6) AMOUNT 

"TABU5)"7) ALL" ;LK-0: PRINT 
2130 PRINT"ENTER VOUR CHOICE"; : IMPUTE* :LK=VBL<B*) : IFBt^ 1 END "ORLK=8THENRETURN 
2135 I FLK<1ORLK>7THEN2090ELSEI FTV-3THEN2130 
2140 I FTV=1AND (LK=30RLK>4 ) THEN2190 

2159 IFTV=2ANDLK>1THEN2190 

2160 IFTV=4fiNDLK>2THEN2190 
2170 IF(TV=5ORTV=6)flNDLK>3THEN2190 
2180 PRINTTflB(5r* BAD REQUEST *":GOSUB320:GOTO2040 
2196 PRINT:IFLK=5PRINT"ENTER DESCRIPTION"; TABG2); :INPUTR*:GOTO2300 

2200 ONLKGDTO2201, 2202, 2203. 2281, 2300, 2206. 2300 

2201 PRINT"<LOW DATE>, <HIGH DATE>"; :G0T02218 

2202 PRINT"<ILOW CHECKS <HIGK CHECK#>"; :GGTO2210 

2205 PRlNT"aOW ACCOUNTS <!HIGH ACCOUNTS"; :GOTO2210 

2206 PRINT "<LOW RMOUNT>, <HIGH AMOUNT>"; 
2210 PRINTTAB<32); : IFLKO1ANDLKO47HEN2250 
2220 INPUTB*, C$ : GOSUB902 : IFDT*=" "THEN2270ELSER1=VAL(DT*) 
2230 B*=C$ : G0SUB9S2 : 1 FDT*= " " THEN2270ELSER2=VAL < DT* ) : G0T02260 
2256 INPUTR1,R2 
2260 IFRK=R2THEN2308 

2270 PRINTTABOr* BAD RANGE *":GOTO2190 
2308 IFIO=1THEN2330 
2365 ZFPEEKU4312)U2BTHEN2330 
2320 PR INT .PRINTLINE PRINTER NOT READV! !"; INPUT" TVPE 1 WHEN READV, OR Z TO RETU 

RN TO MENU"; I : IFI=BTHENRETURNELSE2305 
2330 GGSUB3808 
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£240 GOSUB350O : GOSUB100S : I FAB=1THEN204O 

236B GOSUB45O0 : GOSUB100O : IFflB=lTHEN2O40 

2365 IFFOD=lRNDPP=0THENfl*=" * NO ENTRIES *" : IFI0=1TH"£NPRINTA* -ELSELPRINTfl* 

2370 IFEOD=1THEN2410 

2380 GOSUB6000 : PP=1 : GOSUB10OO : IFRB=1THEN2040 

2390 1 FI G=1THENCNT=CNJ+1 : IFCNTM4THENGOSUB1500 : GOTO2240 : ELSE2360 

2400 IFPEEK (16425 )}62THENLPRINTCHR$<; 12 > : G0T02346 : ELSE2360 

2419 IFIO=1GOSL)B1500:GOTG2S40 

2420 LPRINTCHR*a2):GOTO2040 

3000 P0KE16424, 67 : P0KE16425, 1 : PG=G : CNT=0 : EOD=0 : KK=0 : AB=9 

3010 ONTVGOTO3011, 3012, 3013. 3014, 3615, 3016 

3011 H$= ■ RCC0UNT5 " : GOTO3S20 

3@12 H$="OUTSTRNDING CHECKS" : GOTO3026 

3013 H$= "CANCELLED CHECKS ": GDTO3020 

3014 H*="CflSH EXPENSES" : GOTO3020 

3015 H*= < *DEFOSITS":GOTO3020 
3616 H*=" SAVINGS" 

302S IFIO=2THEN3100 

3030 IFTVO1THEN3068 

3040 T*=" NO. NAME 

305B f*=" #mm 'A '/. 

3060 T*="DATE DESCRIPTION 

% mMM. Hh 
3070 IFTV>1ANDTV<4T*=" NO. "+T*:F*= "###### 

*:F*=STRING$(1B, " ">+F$ 
30G0 IFTY>1ANDTV<5T*=T*+" EXP. flCCT" :F*=F$+" ###«##' 



^ 



CORRENT BUDGET 
AMOUNT" ;F*= "#*/## 



REMAINING 

y. 



: RETURN 



"+F*:ELSET*=STRING$(10, " ")+T 



NAME 
REMAINING 



DESCRIPTION AMOUNT EXP. AC 

y. ######.## #mmr' :retu 



###,#*#. #*-": RETURN 

description 



current 



BUDGET 



AMOUNT 
«##, ###. #*- 



3090 IFTV=3THENT*=" NO. WRTN CAN 

CT":F$=" ###### ##/## *#/## X 

RNELSERETURN 
3100 IFTVO1THEN3130 
3110 T*=" ACCOUNT 

PERCENT 
2120 F$=" #*### V. K 

#«###, ## 
3130 T*="DRTE 

3135 F*= "#»/»# 'A y. 

3140 IFTV>1ANDTV<;4THENT*=" NUMBER "+T* F$=' h 

ING*<15, " ")+Tt:F$=STRING*a5 J " ">+F* 
3156 I FTV>1RNDTV<;5T*=T*+ " EXPENSE" : F$=F*+ ,J 
3160 IFTY=3THENT*=T*+" CANCELLED" : F*=F*+" 
350@ FG=PG+1:IFI0=2THEN3536 
3510 CLS:D=DT:GOSUB500:PRINTUSING"BUDGET MANAGEMENT: 'A 

## DATE ##/##/## ";H*.:PG;D1;D2;D3 
3520 GOSUB1000 : IFBB=1THENR£TURNELSEPRINTT* : CNT=2 : RETURN 
3530 GOSUB3900:LPRINTTflB<40)j "BUDGET MANAGEMENT REPGRT"+STRING*<25, " ">j LPR1NTU 

SING "PAGE ##"jPG 
3540 LPRINTTAB<40V'** "H$" REPORT **" :LPRINTTAB(45)"DATE' "; D=DTGOSUB500LPRIN 

TUSING "##/##/##"; Dl; D2; D3 
-■3550 GOSUB1080; IFAB=lTHENRETURNELSEGOSUB3910:lPRINTT*:FORI=lTOLEN(Ti) ■ IFMID$(T*, 

1^1)=" "THENLPRINT" "; :£L£ELPRINT"="; 
3560 NEXT: LPRI NT" ":RETURN 
3900 LPRINTSTRING*ai0, "-") 
3910 F0RDY=1T02:LPRINT >F ": NEXT : RETURN 






"+F$:ELSET*=STR 

.RETURNELSERETURN 
V. PAGE 
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4500 EOD=0 : KK=KK+1 : 0HTVG0T0454& 4600, 46S0, 4690, 4740, 4730 

4510 EOD=l: RETURN 

4540 C*=fl2$(KK) : IFKK>KlTHEN4510ELSEIFLK=7THEN4580EI_SEGNLKGOTG45iB, 4510, 4550, 4510 

i 4560, 4570 
4550 K=flB5(fil^(KK)) :IFK<INT(Rl>ORK>INT';R2>THEN4500ELSE45e0 
4560 IFR$OCrTHEN4500ELSE4580 

4570 R=C5NG(fl3#<KK)) :IFR<R1ORR>R2THEN4500EL5E45B0 

4580 IFfl4#(KK^0D6THENP=0 : Rtt=0D8 : ELSER4t=R4#<KK)-fl2»<KK) : P=R3#<KK VR4#<KK)*100 
4590 L=INT<R6^KK>-10*INT<R6;:<KKV10;O:C$=5TRirJG$<2+L, " ")+R2*<KK> 
4595 IFL=0fM>IO=2THENLPRINT" " : RETURNELSERETURN 
4600 I FKK>K2THEN4510ELSE I FC6'/X KK) O0THEN4500 

4610 C$=C3*<KK> : IFLK=7THENRETURNELSEONLKGOTO4670, 4620, 4660, 4630, 4910, 4650 
4620 R=C1K(KK>:GOTO4900 
4630 R=C22( KK) : GOTQ4900 
4650 R=C4(KK>:GOTO4300 
4660 R=RBS<R1K(C5?;<KK))) :GOTG4960 
4670 R=C6KCKK):GOTO4900 

46B0 IFKK>K2THEH4518ELSEIFC6?i(KK)=0THEN4500ELSE4610 
4690 C*=E2*CKK> : IFKK>K3THEN4518ELSEIFLK=7THENRETURNELSEONLKGOTQ4510 J 4510, 4720, 47 

00.. 4910, 4720 
4700 R=E1X<KK):GOTO4900 
4720 R=E3CKK>:GOTO4900 
4730 R=flBS(fll/;<E4K<KK» ) : GOTO4900 
4740 C*=D2*(KiO : 1FKK>K4THEN4510ELSEIFLK=7THENRETURNEL£EONLKGQTD4510, 4516, 4510, 47 

50, 4910, 4770 
4750 R=D1K<KK):GOTO4900 
4770 R=D3(KK>:GOTO4900 
4788 C*=S2*<KK) : IFKK>K5THEN4510ELSEIFLK=7THENRETURNELSEONLKGOTO4500, 4500, 4500, 47 

90, 4910, 4810 
4790 R=S1X(KK):GQTQ4300 
4310 R=S3<KtO:GOTO4900 
4900 IFR<R1ORR>R2THEN4500ELSERETURN 
4916 IFR*OC*THEN4500EL5ERETURN 
5000 IFE=99PRINT"* END OF RUN *":END 

5010 PRINTTRB<5>; : ONEGOTO5011, 5012. 5012, 5014, 5815, 5016, 5017 

5011 PRINT"* FILE NOT FOUND *" : RETURN 

5012 PRINT"* INPUT DflTR EXCEEDS MEMORY ALLOCATION *": RETURN 
6000 GOSUB290:ONTYGOTO6006, 6001, 6001, 6003, 68B4, 6005 

6901 D=C2X(KK) 

6002 I FTV=3THENGOSUB550 : DV=D2 : VN=D3 : D=C6K<KK ) : GOTO6006EL5E6006 

6003 D=E1^XKK>:GDTO6006 

6004 D=D12<KK>:GOTG6006 
60B5 D=S1K<KK> 

Sm£ GOSUB550: IFIO2THEN6100ELSEONTVGOTO6010, 6620, 6030, 6040, 6050, 6060 

6010 PRINTUSINGFJjRBS^lKCKK)); C*; fi3#(KK)j R4*(KK)j R#: RETURN 

6020 PRINTUSINGF*; Cl^KK); D2;D3; Cfc C4CKK); RBS C RltfCCSZCKK ID) : RETURN 

6839 PRINTUSINGF*; C1KCKK); DV; YN; D2j D3; C*; C4CJKK); RBS(R1K<C5KCKK>)) ; RETURN 

6848 PRINTUSINGFt; D2; D3; C*; E3CKK>j AeS^RlK^KCKKJ) > : RETURN 

6B50 PRINTUSINGFI; D2; D3; C*j D3«:KK) : RETURN 

6&6& PRINTUSINGF*; D2; D3; C*; S3CKK) : RETURN 

6188 ONTVGOTO6110, 6120, 6130, 6148, 6150, 6160 

6118 LPRINTUSINGF$; RBS^RIECKKIO; C*vR3#<KKJj R4#(KK>J P; R#: RETURN 

6120 LPRINTUSINGF*; CIZCKK); D2; D3j C*; C4(KK); RBS<R1K>:C5K<KK))) : RETURN 
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6130 LPRINTUSINGF*; C1X<KK)j DYj VN; C& C4CKIO; ABSCA1K<C5K<KK)))j \>2> D3: RETURN 

6140 LPRINTUSINGF*; D2; 03^ C$; E3CKIO; fiBS<AlKCE4Z<KK) ) ) : RETURN 

6150 LPRINTUSINGF*; D2j 02} C$; D3<KK> : RETURN 

6168 LPRINTU51NGF*; \>2> 02i C*; S3CKK) : RETURN 

9400 POKE 11,12: RETURN 

9586 JJ=J: J=l :GOSUB400 : J=JJ : PRINT : 11=15421: 12=32 

9505 10=0: IFDK=1THENDV=1:GNERRORGGTO9900 

9510 IFDK=1THENLINEINPUT"FILESPEC OF INPUT FILE: "; B*:OPEN"I",DV, B* : 0NERRGRGOT06 

3520 IFDK=0THENDV=-i:INPUT"LOAD DATA TAPECPLRV), THEN PRESS ENTER"; fl* 

9530 INPUT#DV,D:PRINT"DATE OF DRTA: "; :GQSUB35B:PRINT:PRINr'READING ACCOUNTS 

9535 IFF=1THEN9660 

954B INPUT#DV, Kl ; IFK1+1>M1THEN9700 

9550 IFK1O0FGR1=1TOK1+1 : INPUT#DV, A1XCI >, B2*a >, A3#< I ), A4#(I>, m'/.< 1 ) ; GOSUB94O0 : N 

EXT 
9560 PRINT"READING CHECKS" : INFUTHDV, K2 : IFK2>M2THEN9?00 
9570 IFK2O0FOR1=1TOK2 : INPGT#DV, Cim >, C2K< I >, C3K I ), C4C I >, C5Z< I ), C6XC I ) : G0SUB34 

00: NEXT 
9580 PRINT"R£HDING CASH EXPENSES": INPUT#DV,K3: I FKS>M2THEN9700 
9590 IFK3O0FORI=1TOK3 : INPUTfrDV, E1KC I ), E2*a >, E3< I >, E4K( I ) : G0SUB948B : NEXT 
9690 PR INT" READING DEPOSITS" : INPUT#DV, K4 : IFK4>M4THEH9<700 
9610 IFK4O0FORI=1TOK4 : INPUT#DV, D1XC I h D2*<I ), D3< I > : GOSUB94B0 : NEXT 
9620 PRIHT"READING SAVINGS DATA" : INPUTSDV, K5: 1 FK5>M5THEN970O 
9630 IFK5O0THENFDRI=1TOK5 : INPUTttDV, SltfC I ), S2*( D, 53a > : GO5UB940O : NEXT 
9640 F=l : IFDK=1THENCL0SE : RETURNELSERETURN 
9668 INPUT#DV, K: IFK=BTHEN9630 

9665 F0RI=1T0K : INPUT#DV, NNj A2*, A3#, A4tt, A62 : G0SUB94O0 : IFK4NEXT 
967d NN=ABS<NN> : GOSUB450 : IF I I=0NEXT : GOTO9680 
9675 A3#ai)=A21KII>+A3#:fl4*aD=A4#<II)+A4#:NEXT 
9686 G05UB22B : F=l : IFDK^ITHENCLOSE : RETURNELSERETURN 
9700 E=2 : GQSUB5BB8 : G0SUB326 : RETURN 
9SW I=ERR/2+l : IF J =54THENE=1 : GOSUB5808 : RESUME9510 
9918 PRINT :PRINT"UNEXPECTED ERROR #"I"IN LINE"ERL"— RUN ABORTED" :END 
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IMPORTANT NOTICE 

ALL RADIO SHACK COMPUTER PROGRAMS ARE DISTRIBUTED ON AN 
"AS IS" BASIS WITHOUT WARRANTY 

Radio Shack shall have no liability or responsibility to customer or any other 
person or entity with respect to any liability, loss or damage caused or alleged to 
be caused directly or indirectly by computer equipment or programs sold by 
Radio Shack, including but not limited to any interruption of service, loss of 
buisness or anticipatory profits or consequential damages resulting from the use 
or operation of such computer or computer programs, 

NOTE: Good data processing procedure dictates that the user test the program, 
run and test sample sets of data, and run the system in parallel with the 
system previously in use for a period of time adequate to insure that 
results of operation of the computer or program are satisfactory. 
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